CP/M MACRO ASSEM 2.0 



#001 



*** Cold Boot Loader for CP/M Ver. 2.2 *** 



1 



************************************************************** 



* 












* 


* 

* 


CP/M 


VERS 2.2 


COLD START LOADER. 


- 


* 
* 


* 


WRITTEN BY BOBBY DALE GIFFORD. 






* 


* 
* 


3/17/80 








* 
* 


* 


THE ] 


FOLLOWING 


ROUTINES WILL BOOT CP/M FROM THE DISK JOCKEY 


* 


* 


2D (ALL REVS AND MODELS), OR FROM THE DISK JOCKEY HARD 




* 


* 
* 


DISK 


CONTROLLER. 






* 
* 


* 




THE COLD BOOT LOADER 


(SECTOR 1, TRACK 0) IS 


LOADED 


* 


* 


INTO 


THE RAM 


OF THE CONTROLLER BY THE COLD BOOT ROUTINE OF 


* 


* 


THE 


FIRMWARE. 


THE FIRST THING 


THE BOOT DOES IS TO LOAD 


INTO 


* 


* 


THE 


CONTROLLER RAM, A VERSION 


OF THE DISK JOCKEY 2D FIRMWARE. 


* 


* 


FROM 


THEN ON, 


ALL CALLS TO THE FIRMWARE WILL ACTUALLY 


BE 


* 


* 


DIRECTED TO THE DISK JOCKEY RAM. THE NEXT PROCESS IS TO LOAD 


* 


* 


IN A 


BOOT ROUTINE WHICH CAN LOAD IN ALL OF CP/M. THIS 


IS 


* 


* 


DONE 


BY DETERMINING THE SIZE OF THE SECTORS ON TRACK 1 


, AND 


* 


* 
* 


USING THIS INFORMATION TO LOAD IN THE PROPER BOOT INTO 


80H. 


* 
* 


* 


THE 


FOLLOWING 


TABLES EXPLAIN ' 


rHE ORDER OF SECTOR LOADING FOR 


* 


* 


EACH 


OF THE DIFFERENT SECTOR 


3IZES. AN ENTRY OF 




* 


* 


REPRESENTS A WRAP BACK AROUND 


(NEGATIVE DMA ADJUSTMENT) . 


* 


* 


AN ENTRY FLAGGED WITH ASTRICKS REPRESENTS A PARTIAL SECTOR 


* 


* 


LOAD 


• 








* 


* 












* 


* 


ALL 


SECTOR SIZES: 






* 


* 


TRACK SECTOR 1 E700 






* 


* 







8 2C00H 






* 


* 







10 2D00H 






* 


* 







12 2E00H 






* 


* 







14 2F00H 






* 


* 







16 3000H 






* 


* 







18 2780H 






* 


* 







20 2880H 






* 


* 







22 2980H 






* 


* 







24 2A80H 






* 


* 







26 2B80H 






* 


* 







9 2C80H 






* 


* 







1 1 2D80H 






* 


* 







13 2E80H 






* 


* 







15 2F80H 






* 


* 







17 2700H 






* 


* 







19 2800H 






* 


* 







21 2900H 






* 


* 







23 2A00H 






* 


* 
* 







25 2B00H 






* 
* 


* 


THE 


FOLLOWING 


DEPEND ON THE SECTOR SIZE, ALL SECTORS ARE FROM 


* 


* 


TRACK 1. 








* 


* 








« < '■ 


.,. 


* 


* 


256 




512 


1024 




* 


* 


SEC 


ADDRESS 


SEC 


ADDRESS SEC 


ADDRESS 


* 


* 


1 


2C00H 


1 


2C00H 1 


2C00H 


* 


* 


3 


2E00H 


3 


3000H 3 


3400H 


* 






cp/m macro ASSEM 2.0 



#002 



; ** Cold Boot Loader for CP/M Ver. 2.2 *** 



^ 



* 


5 


3000H 


* 


7 


3200H 


* 


9 


3400H 


* 


11 


3600H 


* 


13 


3800H 


* 


15 


3A00H 


* 


17 


3C00H 


* 


19 


3E00H 


* 


21 


4000H 


* 


23 


4200H 


* 


25 


4400H 


* 






* 


2 


2D00H 


* 


4 


2F00H 


* 


6 


3100H 


* 


8 


3300H 


* 


10 


3500H 


* 


12 


3700H 


* 


14 


3900H 


* 


16 


3B00H 


* 


18 


3D00H 


* 


20 


3F00H 


* 


22 


4100H 


* 


24 


4300H 


* 


26 


4500H 


* 






* 






* 






* 






* 






* 






* 






* 






* 






************* 



5 


3400H 


7 


3800H 


9 


3C00H 


11 


4000H 


13 


4400H 


2 


2E00H 


4 


3200H 


6 


3600H 


8 


3A00H 


10 


3E00H 


12 


4200H 



5 
7 



3C00H 
4400H 



2 

4 
6 



3000H 
3800H 
4000H 



DISCUS M10, M20, M26 



3 


E400H 


4 


E600H 


20 


4500H 


5 


2700H 


6 


2900H 


7 


2B00H 


8 


2D00H 


9 


2F00H 


10 


3100H 


11 


3300H 


12 


3500H 


13 


3700H 


14 


3900H 


15 


3B00H 


16 


3D00H 


17 


3F00H 


18 


4100H 


19 


4300H 



(IF 2D IS PRESENT) 
(IF 2D IS PRESENT) 



* 
** 7 AAmcm * 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

** 20 4500H * 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

************************************************************ 



TITLE 



0038 = 


MSIZE 


EQU 


9000 = 


BIAS 


EQU 


B700 = 


CCP 


EQU 


CD00 = 


BIOS 


EQU 


000A = 


RETRIES 


EQU 



.*** Cold Boot Loader for CP/M Ver. 2.2 ***' 

56 7 MEMORY SIZE OF TARGET CP/M 

(MSIZE-20)*1024 ;MEMORY OFFSET FROM 20K SYSTEM 

2700H+BIAS rCONSOLE COMMAND PROCESSOR 

CCP+1600H ;CBIOS ADDRESS 

10 ;MAXIMUM # OF DISK RETRIES 

***************************************************************** 

* * 

* THE FOLLOWING EQUATES SET UP THE RELATIONSHIP BETWEEN THE * 

* 2D FLOPPIES AND THE HARD DISK CONTROLLERS. * 

* * 

***************************************************************** 



0001 = 



0001 = 



FIRST 



MAXHD 



EQU 



EQU 



= FLOPPIES ARE A-D DRIVES AND 

HARD DISK ARE E-P 

1 » HARD DISKS ARE A-L DRIVES AND 

FLOPPIES ARE M-P 
SET TO NUMBER OF HARD DISKS 



cp/m macro 

0002 = 



ASSEM 2.0 #003 
MAXFLOP EQU 



*** Cold Boot Loader for CP/M Ver. 2.2 *** 
2 ; SET TO NUMBER OF FLOPPIES 



***************************************************************** 

* * 

* THE FOLLOWING EQUATES ARE FOR THE DISKUS HARD DISK IF WANTED. * 

* * 
***************************************************************** 



0050 = 
0050 = 

0050 = 
0053 = 
0052 = 

0051 = 
0051 = 
0002 = 

0001 = 

0002 = 
0004 = 
0008 = 
0010 = 
0020 = 
0040 = 
0004 = 
00FB = 

0004 = 
0200 = 
000F = 
000B = 

0005 = 

0007 = 
00F7 = 
00FC = 

0000 = 

0008 = 

0001 = 
0005 = 



E000 = 
E400 = 
E400 = 





IF 


(MAXHD NE 0) 


AND 


HDORG 


EQU 


50H 




HDSTAT 


EQU 


HDORG 




HDCNTL 


EQU 


HDORG 




HDDATA 


EQU 


HDORG+3 




HDFUNC 


EQU 


HDORG+2 




HDCMND 


EQU 


HDORG+1 




HDRESLT 


EQU 


HDORG+1 




RETRY 


EQU 


2 




TKZ 


EQU 


1 




OPDONE 


EQU 


2 




COMPLT 


EQU 


4 




TMOUT 


EQU 


3 




WFAULT 


EQU 


10H 




DRVRDY 


EQU 


20H 




INDX 


EQU 


40H 




PSTEP 


EQU 


4 




NSTEP 


EQU 


0FBH 




HDRLEN 


EQU 


4 




SECLN 


EQU 


512 




WENABL 


EQU 


0FH 




WRESET 


EQU 


0BH 




SCENBL 


EQU 


5 




DSKCLK 


EQU 


7 




MDIR 


EQU 


0F7H 




NULL 


EQU 


0FCH 




IDBUFF 


EQU 







ISBUFF 


EQU 


8 




RSECT 


EQU 


1 




WSECT 


•EQU 


5 


; 




ENDIF 







FIRST ;WANT HARD DISK INCLUDED ? 

HARD DISK CONTROLLER 

HARD DISK STATUS 

HARD DISK CONTROL 

HARD DISK DATA 

HARD DISK FUNCTION 

HARD DISK COMMAND 

HARD DISK RESULT 

RETRY BIT OF RESULT 

TRACK ZERO BIT OF STATUS 

OPERACTION DONE BIT OF STATUS 

COMPLETE BIT OF STATUS 

TIME OUT BIT OF STATUS 

WRITE FAULT BIT OF STATUS 

DRIVE READY BIT OF STATUS 

INDEX BIT OF STATUS 

STEP BIT OF FUNCTION 

STEP BIT MASK OF FUNCTION 

SECTOR HEADER LENGTH 

SECTOR DATA LENGTH 

WRITE ENABLE 

WRITE RESET OF FUNCTION 

CONTROLLER CONTROL 

DISK CLOCK FOR CONTROL 

DIRECTION MASK FOR FUNCTION 

NULL COMMAND 

INITIALIZE DATA COMMAND 

INITIALIZE HEADER COMMAND 

READ SECTOR COMMAND 

WRITE SECTOR- COMMAND 



***************************************************************** 



* COLD BOOT LOADER COMMON TO ALL SECTOR SIZES. 

* THIS SECTOR IS LOADED INTO MEMORY AT E700H IN A STANDARD 



* 
* 
* 



* CONFIGURATION. IT IS RESPONSIBLE FOR READING MOST OF TRACK * 

* INTO MEMORY ON COLD BOOTS. • * * 

* * 
**************** ****************.******************,*****,** ******** 



IF 
ORIGIN EQU 
DJRAM EQU 
DJBOOT EQU 

ENDIF 



MAXFLOP NE 
0E000H 
ORIGIN+400H 
DJRAM 



IF 



(MAXFLOP NE 0) 



CP/M macro ASSEM 2.0 



#004 



2900 = 



OFFSETB EQU 
ELSE 

OFFSETB EQU 

END IF 



PUTDEN 

PUTDMA 

GETSTAT 

PUTSEC 

PUTTRK 

PUTHOM 

DOREAD 

BOTERR 



DIFF 



IF 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

ORG 

SET 



LXI 

FIRMLOD MVI 

NEWSEC EQU 
INR 
INR 
CPI 
JZ 
JC 
SUI 

NOWRAP STA 
MOV 
CALL 
LXI 

NEWDMA EQU 
LXI 
DAD 
MOV 
CPI 
JC 
JNZ 
MOV 
CPI 
JC 

WRP LXI 
DAD 

NOWRP SHLD 
MOV 
MOV 
CALL 
LXI 

FREAD PUSH 
CALL 
CALL 
POP 
JNC 
DCR 
JNZ 



*** Cold Boot Loader for CP/M Ver. 2.2 *** 

900H-ORIGIN 





NOT FIRST 

ORIGIN+02DH 

ORIGIN+12H 

ORIGIN+27H 

ORIGIN+0FH 

ORIGIN+0CH 

ORIGIN+9H 

ORIGIN+15H 

ORIGIN+2AH 

ORIGIN 

ORIGIN+700H-? 



;SET DENSITY 
;DISK JOCKEY 
;DISK STATUS 
,-DISK JOCKEY 
;DISK JOCKEY 
;DISK JOCKEY 
;DISK JOCKEY 
;DISK JOCKEY 



ROUTINE ON DISK JOCKEY 2D 

2D SET DMA ADDRESS ROUTINE 

ROUTINE ON DISK JOCKEY 2D 

2D SET SECTOR ROUTINE 

2D SET TRACK ROUTINE 

2D TRACK SEEK 

2D READ ROUTINE 

2D FLASH ERROR LIGHT ROUTINE 



;DISK JOCKEY 2D RAM 

; OFFSET TO BOOT LOADER ADDRESS 



PREVIOUS SECTOR # 

UPDATE SECTOR # 

TEST IF ALL DONE 

TEST IF WRAP AROUND 

SAVE THE UPDATED SECTOR # 

SET UP THE SECTOR 
PREVIOUS DMA ADDRESS 

UPDATE DMA ADDRESS 



SP, STAC+DIFF 
A, 6 

$-1 

A 

A 

27 

CCP+500H 

NOWRAP+DIFF 

19 

NEWSEC+DIFF 

C,A 

PUTSEC 

H,CCP+400H 

$-2 

D,100H 

D 

A,H 

(CCP+980H)/100H 

NOWRP+DIFF 

WRP+DIFF 

A,L 

(CCP+980H) MOD 100H 

NOWRP+DIFF 

D,-980H 

D 

NEWDMA+DIFF ;SAVE THE UPDATED DMA ADDRESS 

B,H 

C,L 

PUTDMA ;SET UP THE NEW DMA ADDRESS 

B,RETRIES*100H+0;MAXIMUM # OF ERRORS 

B, 

PUTTRK ;SET UP THE PROPER TRACK 

DOREAD ;READ THE SECTOR 

B 

FIRMLOD+DIFF ; CONTINUE IF NO ERROR 

B ■ 

FREAD+DIFF ;KEEP TRYING IF ERROR 



CP/M MACRO ASSEM 2.0 #005 *** Cold Boot Loader for CP/M Ver. 2.2 *** 

JMP BOTERR ;TO MANY ERRORS, FLASH THE LIGHT 

DS 80H-($ MOD 80H) 
STAC EQU $ 

***************************************************************** 

* * 

* THE FOLLOWING EQUATES RELATE TO THE THINKER TOYS 2D CONTROLLER* 

* IF THE CONTROLLER IS NON STANDARD (0E000H) ONLY THE ORIGIN * 

* EQUATE NEED BE CHANGED. THIS VERSION OF THE CBIOS WILL WORK * 

* WITH 2D CONTROLLER BOARDS REV 0,1,3, 3. 1,4. * 

* * 

***************************************************************** 



DJCIN 


EQU 


DJCOUT 


EQU 


DJHOME 


EQU 


DJTRK 


EQU 


DJSEC 


EQU 


DJDMA 


EQU 


DJREAD 


EQU 


DJWRITE 


EQU 


DJSEL 


EQU 


DJDMAST 


EQU 


DJSTAT 


EQU 


DJERR 


EQU 


DJDEN 


EQU 


DJTSTAT 


EQU 


DJSIDE 


EQU 



DJRAM+3H 

DJRAM+6H 

DJRAM+9H 

DJRAM+0CH 

DJRAM+0FH 

DJRAM+012H 

DJRAM+15H 

DJRAM+18H 

DJRAM+1BH 

DJRAM+24H 

DJRAM+27H 

DJRAM+2AH 

DJRAM+2DH 

DJRAM+21H 

DJRAM+30H 



DISK JOCKEY 2D CHARACTER INPUT ROUTINE 

DISK JOCKEY 2D CHARACTER OUTPUT ROUTINE 

DISK JOCKEY 2D TRACK ZERO SEEK 

DISK JOCKEY 2D TRACK SEEK ROUTINE 

DISK JOCKEY 2D SET SECTOR ROUTINE 

DISK JOCKEY 2D SET DMA ADDRESS 

DISK JOCKEY 2D READ ROUTINE 

DISK JOCKEY 2D WRITE ROUTINE 

DISK JOCKEY 2D SELECT DRIVE ROUTINE 

DISK JOCKEY 2D DMA STATUS 

DISK JOCKEY 2D STATUS ROUTINE 

DISK JOCKEY 2D ERROR, BLINK LED 

DISK JOCKEY 2D SET DENSITY ROUTINE 

DISK JOCKEY 2D TERMINAL STATUS ROUTINE 

DISK JOCKEY 2D SET SIDE ROUTINE 



***************************************************************** 

* * 

* THE FOLLOWING THREE SECTORS OF CODE RESIDE AT 80H . THERE IS * 

* ONE SECTOR FOR EACH OF THE POSSIBLE SECTOR SIZES (256,512, * 

* 1024) . EACH SECTOR IS RESPONSIBLE FOR PERFORMING A COLD BOOT * 

* FOR THE SPECIFIED SECTOR SIZE. * 

* * 

***************************************************************** 



DIFF 



SET 



80H-$ 





LXI 


SP,CSTK256+DIFF ; 




LXI 


B,26*100H+1 


CLOD256 


PUSH 


B ; 




CALL 


DJSEC 




LXI 


H,CCP+300H ; 


CDMA256 


EQU 


$-2 ; 




LXI 


D,200H ; 




DAD 


D ? 




SHLD 


CDMA256+DIFF ; 




MOV 


B,H 




MOV 


C,L 




CALL 


DJDMA 7 




CALL 


CRD256+DIFF ; 




POP 


B ; 




DCR 


B ; 



SET UP STACK AT END OF THIS SECTOR 

B = SECTOR COUNT, C = SECTOR # 

SAVE SECTOR AND COUNT 

SET THE NEXT SECTOR TO READ 

GET DMA ADDRESS (SELF MODIFYING) 

STORAGE FOR PREVIOUS DMA ADDRESS 

OFFSET TO NEW DMA ADDRESS 

ADD IN OFFSET, HL = NEW DMA ADDRESS 

SAVE NEW DMA ADDRESS 

PUT DMA ADDRESS INTO BC 

SET THE DMA ADDRESS 

ATTEMPT A READ 

RECOVER SECTOR NUMBER AND COUNT 

B -COUNT, C = NUMBER 
UPDATE SECTOR COUNT 



CP/M MACRO ASSEM 2.0 



#006 



; ** Cold Boot Loader for CP/M Ver. 2.2 *** 



JZ 


BIOS 


MVI 


A, 2 


ADD 


C 


MOV 


C,A 


CPI 


27 


JC 


CLOD256+DIFF 


SUI 


25 


MOV 


C,A 


LXI 


H,CCP+400H 


SHLD 


CDMA256+DIFF 


JMP 


CLOD256+DIFF 



ALL DONE ? 

SECTOR UPDATE 

ADD IN THE SECTOR SKEW FACTOR 

PUT NEW SECTOR BACK INTO C 

PAST THE END OF THE TRACK ? 

TAKE JUMP IF NOT PAST END OF TRACK 

PERFORM A NEGATIVE SECTOR ADJUSTMENT 

PUT NEW SECTOR IN C 

NEGATIVE DMA ADJUSTMENT 

SAVE THE NEW DMA ADDRESS 

CONTINUE READING 



***************************************************************** 

* * 

* 
* 

* * 
***************************************************************** 



* CRD256 DOES THE ACTUAL READ FROM THE CONTROLLER, THE DMA 

* ADDRESS AND SECTOR # HAVE ALREADY BEEN SET UP. 



CRD256 


LXI 


B,RETRIES*100H+ 


CR256 


PUSH 


B 




CALL 


DJTRK 




CALL 


DJREAD 




POP 


B 




RNC 






DCR 


B 




JNZ 


CR256+DIFF 




JMP 


DJERR 




DS 


80H-($ MOD 80H) 


CSTK256 


EQU 


$ 



;SAVE ERROR COUNT 

; INITIALIZE THE TRACK 

; ATTEMPT THE READ 

; RESTORE THE ERROR COUNT 

; RETURN IF NO ERROR 

; UPDATE ERROR COUNT 

;TRY AGAIN IF NOT TO MANY ERRORS 

;GO AND FLASH THE LIGHT ON CONTROLLER 



***************************************************************** 

* * 

* THE NEXT LOADS CP/M FROM A 512 BYTE SECTOR DISKETTE. * 

* * 

***************************************************************** 



DIFF 



SET 



80H-$ 





LXI 


SP,CSTK512+DIFF 




LXI 


B,13*100H+1 


CLOD512 


PUSH 


B 




CALL 


DJSEC 




LXI 


H,CCP+100H 


CDMA512 


EQU 


$-2 




LXI 


D,400H 




DAD 


D 




SHLD 


CDMA512+DIFF 




MOV 


B,H 




MOV 


C,L 




CALL 


DJDMA 




CALL 


CRD512+DIFF 




POP 


B 



DCR 



B 



SET UP STACK AT END OF THIS SECTOR 

B = SECTOR COUNT, C = SECTOR # 

SAVE SECTOR AND COUNT 

SET THE NEXT SECTOR TO READ 

GET DMA ADDRESS (SELF MODIFYING) 

STORAGE FOR PREVIOUS DMA ADDRESS 

OFFSET TO NEW DMA ADDRESS 

ADD IN OFFSET, HL = NEW DMA ADDRESS 

SAVE NEW DMA ADDRESS 

PUT DMA ADDRESS INTO BC 

•;SET THE DMA ADDRESS - 
? ATTEMPT A READ 

; RECOVER SECTOR NUMBER AND COUNT 
; B - COUNT, C = NUMBER 
; UPDATE SECTOR COUNT 



CP/M MACRO ASSEM 2.0 #007 *** Cold Boot Loader for CP/M Ver. 2.2 *** 



JZ 


BIOS 


MVI 


A, 2 


ADD 


C 


MOV 


C,A 


CPI 


14 


JC 


CLOD512+DIFF 


SUI 


13 


MOV 


C,A 


LXI 


H,CCP+300H 


SHLD 


CDMA512+DIFF 


JMP 


CLOD512+DIFF 



ALL DONE ? 

SECTOR UPDATE 

ADD IN THE SECTOR SKEW FACTOR 

PUT NEW SECTOR BACK INTO C 

PAST THE END OF THE TRACK ? 

TAKE JUMP IF NOT PAST END OF TRACK 

PERFORM A NEGATIVE SECTOR ADJUSTMENT 

PUT NEW SECTOR IN C 

NEGATIVE DMA ADJUSTMENT 

SAVE THE NEW DMA ADDRESS 

CONTINUE READING 



***************************************************************** 

* * 

* CRD512 DOES THE ACTUAL READ FROM THE CONTROLLER, THE DMA * 

* ADDRESS AND SECTOR # HAVE ALREADY BEEN SET UP. * 

* * 

***************************************************************** 



CRD512 


LXI 


B, RETRIES* 100H+ 


CR512 


PUSH 


B 




CALL 


DJTRK 




CALL 


DJREAD 




POP 


B 




RNC 






DCR 


B 




JNZ 


CR512+DIFF 




JMP 


DJERR 




DS 


80H-($ MOD 30H) 


CSTK512 


EQU 


$ 



;SAVE ERROR COUNT 

7 INITIALIZE THE TRACK 

; ATTEMPT THE READ 

7 RESTORE THE ERROR COUNT 

; RETURN IF NO ERROR 

7 UPDATE ERROR COUNT 

7 TRY AGAIN IF NOT TO MANY ERRORS 

7 GO AND FLASH THE LIGHT ON CONTROLLER 



***************************************************************** 

* * 

* THE NEXT SECTOR LOADS CP/M FROM A 1024 BYTE SECTOR DISKETTE. * 

* * 

***************************************************************** 



DIFF 



SET 



S0H-$ 



LXI 


SP,CSTK124+DIFF 


LXI 


B,l*100H+7 


CALL 


CLOD124+DIFF 


LXI 


H,CCP+1D00H 


LXI 


D,CCP+500H 


LXI 


B,200H 


CMOV124 LDAX 


D 


MOV 


M,A 


I NX 


H 


I NX 


D 


DCR 


C 


JNZ 


CMOV124+DIFF 


DCR 


B 


JNZ 


CMOV124+DIFF 


LXI 


H,CCP-300H 


SHLD 


CDMA124+DIFF 



7 SET UP STACK AT END OF THIS SECTOR 
?B = SECTOR COUNT, C = SECTOR # 
7 LOAD SECTOR 5 INTO CCP 
7 DESTINATION OF MOVE 
7 SOURCE OF MOVE 

7 GET A BYTE OF SOURCE 

7 MOVE IT 

7 BUMP DESTINATION 

7 BUMP SOURCE 

7 ALL DONE WITH THIS PAGE ? 



7 INITIAL DMA ADDRESS 



CP/M MACRO ASSEM 2.0 



#008 



*** Cold Boot Loader for CP/M Ver. 2.2 *** 



LXI 


B,6*100H+1 


CALL 


CLOD124+DIFF 


JMP 


BIOS 


CL0D124 PUSH 


B 


CALL 


DJSEC 


LXI 


H,CCP-300H 


CDMA124 EQU 


$-2 


LXI 


D,800H 


DAD 


D 


SHLD 


CDMA124+DIFF 


MOV 


B,H 


MOV 


C,L 


CALL 


DJDMA 


CALL 


CRD124+DIFF 


POP 


B 


DCR 


B 


RZ 




MVI 


A, 2 


ADD 


C 


MOV 


C,A 


CPI 


7 


JC 


CLOD124+DIFF 


SUI 


5 


MOV 


C,A 


LXI 


H,CCP+100H 


SHLD 


CDMA124+DIFF 


JMP 


CLOD124+DIFF 



;B = SECTOR COUNT, C = SECTOR # 



;SAVE SECTOR AND COUNT 

;SET THE NEXT SECTOR TO READ 

;GET DMA ADDRESS (SELF MODIFYING) 

; STORAGE FOR PREVIOUS DMA ADDRESS 

; OFFSET TO NEW DMA ADDRESS 

;ADD IN OFFSET, HL = NEW DMA ADDRESS 

;SAVE NEW DMA ADDRESS 

;PUT DMA ADDRESS INTO BC 

SET THE DMA ADDRESS 

ATTEMPT A READ 

RECOVER SECTOR NUMBER AND COUNT 

B = COUNT, C = NUMBER 
UPDATE SECTOR COUNT 
ALL DONE ? 
SECTOR UPDATE 

ADD IN THE SECTOR SKEW FACTOR 
PUT NEW SECTOR BACK INTO C 
PAST THE END OF THE TRACK ? 
TAKE JUMP IF NOT PAST END OF TRACK 
PERFORM A NEGATIVE SECTOR ADJUSTMENT 
PUT NEW SECTOR IN C 
NEGATIVE DMA ADJUSTMENT 
SAVE THE NEW DMA ADDRESS 
CONTINUE READING 



***************************************************************** 

* * 

* RD124 DOES THE ACTUAL READ FROM THE CONTROLLER, THE DMA * 

* ADDRESS AND SECTOR # HAVE ALREADY BEEN SET UP. * 

* * 
***************************************************************** 



CRD124 


LXI 


B, RETRIES*]. 00H+ 


CR124 


PUSH 


B 




CALL 


DJTRK 




CALL 


DJREAD 




POP 


B 




RNC 






DCR 


B 




JNZ 


CR124+DIFF 




JMP 


DJERR 




DS 


80H-($ MOD 80H) 


CSTK124 


EQU 


$ 



;SAVE ERROR COUNT 

; INITIALIZE THE TRACK 

7 ATTEMPT THE READ 

; RESTORE THE ERROR COUNT 

; RETURN IF NO ERROR 

; UPDATE ERROR COUNT 

;TRY AGAIN IF NOT TO MANY ERRORS 

; GO AND FLASH THE LIGHT ON CONTROLLER 



***************************************************************** 

* * 

* THE NEXT THREE SECTORS QF CODE ALSO RESIDE AT 80H. THERE IS * 

* ONE SECTOR FOR EACH OF THE POSSIBLE SECTOR SIZES (256,512, * 

* 1024) . EACH SECTOR IS RESPONSIBLE FOR PERFORMING A WARM BOOT * 

* FOR THE SPECIFIED SECTOR SIZE. * 

* * 



cp/m macro ASSEM 2.0 



#009 



*** Cold Boot Loader for CP/M Ver. 2.2 



* 


THE 


FOLLOWING TABLE 


SHOWS HOW SECTORS ARE 


READ IN, 


SKEWING 


* 


* 


OF THE SECTORS IS 


NECESSARY BECAUSE SEQUENTIAL SEC 


TORS CAN 


* 


* 


NOT 


BE READ WITHOUT 


WAITING ONE COMPLETE ] 


REVOLUTION BETWEEN 


* 


* 


EACH ONE. ENTRIES 


OF REPRESENT A WRAP AROUND 


(NEGATIVE 


* 


* 


DMA 


ADJUSTMENT) . AN 


ENTRY FLAGGED WITH ** 


REPRESENTS ONLY A 


* 


* 
* 


PARTIAL LOAD FROM 


THAT SECTOR. 






* 


* 


256 






512 


1024 




* 


* 


SEC 


ADDRESS 




SEC ADDRESS 


SEC 


ADDRESS 


* 


* 


1 


3100H 




1 3100H 


1 


3100H 


* 


* 


3 


3300H 




3 3500H 


3 


3900H 


* 


* 


5 


3500H 




5 3900H 


** 5 


4100H 


* 


* 


7 


3700H 




7 3D00H 
"* 9 4100H 






* 


* 


9 


3900H 


i 


2 


3500H 


* 


* 


11 


3B00H 
3D00H 






4 


3D00H 


* 


* 


13 




2 3300H 


* 


* 


15 


3F00H 




4 3700H 






* 


* 


17 


4100H 




6 3B00H 






* 


* 








8 3F00H 






* 










* 


2 


3200H 










* 


* 


4 


3400H 










* 


* 


6 


3600H 










* 


* 


8 


3800H 










* 


* 


10 


3A00H 










* 


* 


12 


3C00H 










* 


* 


14 


3E00H 










* 


* 


16 


4000H 










* 


* 














* 



***************************************************************** 



DIFF 



SET 



80H-$ 



LXI 


SP,WSTK256+DIFF 


LXI 


B,17*100H+1 


WLOD256 PUSH 


B 


CALL 


DJSEC 


LXI 


H.CCP+300H 


WDMA256 EQU 


$-2 


LXI 


D,200H 


DAD 


D 


SHLD 


WDMA256+DIFF 


MOV 


B,H 


MOV 


C,L 


CALL 


DJDMA 


CALL 


WRD256+DIFF 


POP 


B 


DCR 


B 


JZ 


BIOS+3 


MVI 


A, 2 


ADD 


C 


MOV 


C,A 


CPI 


19 


JC 


WLOD256+DIFF 


SUI 


17 


MOV 


C,A 



SET UP STACK AT END OF THIS SECTOR 

B = SECTOR COUNT, C = SECTOR # 

SAVE SECTOR AND COUNT 

SET THE NEXT SECTOR TO READ 

GET DMA ADDRESS (SELF MODIFYING) 

STORAGE FOR PREVIOUS DMA ADDRESS 

OFFSET TO NEW DMA ADDRESS 

ADD IN OFFSET, HL = NEW DMA ADDRESS 

SAVE NEW DMA ADDRESS 

PUT DMA ADDRESS INTO BC 

SET THE DMA ADDRESS 

ATTEMPT A READ 

RECOVER SECTOR NUMBER AND COUNT 

B = COUNT, C = NUMBER 
UPDATE THE SECTOR COUNT 
ALL DONE ? 
SECTOR UPDATE 

ADD IN THE SECTOR SKEW FACTOR 
PUT NEW SECTOR BACK INTO C 
PAST THE END OF THE TRACK ? 
TAKE JUMP IF NOT PAST END OF TRACK 
PERFORM A NEGATIVE SECTOR ADJUSTMENT 
PUT NEW SECTOR IN C 



CP/M MACRO ASSEM 2.0 



#010 



*** 



Cold Boot Loader for CP/M Ver. 2.2 *** 



LXI H,CCP+400H 
SHLD WDMA256+DIFF 
JMP WLOD256+DIFF 



; NEGATIVE DMA ADJUSTMENT 
;SAVE THE NEW DMA ADDRESS 
7 CONTINUE READING 



***************************************************************** 

* * 

* WRD256 DOES THE ACTUAL READ FROM THE CONTROLLER, THE DMA * 

* ADDRESS AND SECTOR # HAVE ALREADY BEEN SET UP. * 

* * 
***************************************************************** 



WRD256 
WR256 


LXI 

PUSH 


B, RETRIES* 100H+ 
B 




CALL 
CALL 


DJTRK 
DJREAD 




POP 
RNC 


B 




DCR 


B 




JNZ 
JMP 


WR256+DIFF 
DJERR 


WSTK256 


DS 
EQU 


80H-($ MOD 80H) 



;SAVE ERROR COUNT 

; INITIALIZE THE TRACK 

7 ATTEMPT THE READ 

; RESTORE THE ERROR COUNT 

; RETURN IF NO ERROR 

; UPDATE ERROR COUNT 

?TRY AGAIN IF NOT TO MANY ERRORS 

;GO AND FLASH THE LIGHT ON CONTROLLER 



***************************************************************** 

* * 

* DISK JOCKEY 2D CP/M FROM A 512 BYTE SECTOR DISKETTE. * 

* * 
***************************************************************** 



DIFF SET 80H-$ 

SP,WSTK512+DIFF ;SET UP STACK AT END OF THIS SECTOR 

;B = SECTOR COUNT, C = SECTOR # 
;LOAD SECTOR 9 INTO CCP 
7 DESTINATION OF MOVE 
; SOURCE OF MOVE 

;GET A BYTE OF SOURCE 

;MOVE IT 

;BUMP DESTINATION 

7 BUMP SOURCE 

7 ALL DONE WITH THIS PAGE ? 

7 INITIAL DMA ADDRESS 

?B = SECTOR COUNT, C = SECTOR # 



7 SAVE SECTOR AND COUNT 

7 SET THE NEXT SECTOR TO READ 

-7 GET DMA ADDRESS (SELF MODIFYING) 

7 STORAGE FOR PREVIOUS DMA ADDRESS 

? OFFSET TO NEW DMA ADDRESS 

7 ADD IN OFFSET, HL = NEW DMA ADDRESS 

? SAVE NEW DMA ADDRESS 



LXI 


SP,WSTK512+D 


LXI 


B,l*100H+9 


CALL 


WLOD512+DIFF 


LXI 


H,CCP+1500H 


LXI 


D, CCP+500H 


MVI 


C,0 


MOV512 LDAX 


D 


MOV 


M,A 


I NX 


H 


I NX 


D 


DCR 


C 


JNZ 


MOV512+DIFF 


LXI 


H,CCP+300H 


SHLD 


WDMA512+DIFF 


LXI 


B,8*100H+2 


CALL 


WLOD512+DIFF 


JMP 


BIOS+3 


WLOD512 PUSH 


B 


CALL 


DJSEC 


LXI 


H,CCP+100H 


WDMA512 EQU 


$-2 


LXI 


D,400H 


DAD 


D, , 


SHLD 


WDMA512+DIFF 



cp/m macro ASSEM 2. 



#011 *** Cold Boot Loader for CP/M Var. 2.2 *** 

PUT DMA ADDRESS INTO BC 

SET THE DMA ADDRESS 

ATTEMPT A READ 

RECOVER SECTOR NUMBER AND COUNT 

B = COUNT, C = NUMBER 
UPDATE SECTOR COUNT 
ALL DONE ? 
SECTOR UPDATE 

ADD IN THE SECTOR SKEW FACTOR 
PUT NEW SECTOR BACK INTO C 
PAST THE END OF THE TRACK ? 
TAKE JUMP IF NOT PAST END OF TRACK 
PERFORM A NEGATIVE SECTOR ADJUSTMENT 
PUT NEW SECTOR IN C 
NEGATIVE DMA ADJUSTMENT 
SAVE THE NEW DMA ADDRESS 
CONTINUE READING 

***************************************************************** 

* * 

* WRD512 DOES THE ACTUAL READ FROM THE CONTROLLER, THE DMA * 

* ADDRESS AND SECTOR # HAVE ALREADY BEEN SET UP. * 

* * 

***************************************************************** 



MOV 


B,H 


MOV 


C,L 


CALL 


DJDMA 


CALL 


WRD512+DIFF 


POP 


B 


DCR 


B 


RZ 




MVI 


A, 2 


ADD 


C 


MOV 


C,A 


CPI 


10 


JC 


WLOD512+DIFF 


SUI 


9 


MOV 


C,A 


LXI 


H,CCP+100H 


SHLD 


WDMA512+DIFF 


JMP 


WLOD512+DIFF 



WRD512 


LXI 


B,RETRIES*100H+1 


WR512 


PUSH 


B ; 




CALL 


DJTRK 




CALL 


DJREAD ; 




POP 


B 




RNC 






DCR 


B ; 




JNZ 


WR512+DIFF ; 




JMP 


DJERR 




DS 


80H-($ MOD 80H) 


WSTK512 


EQU 


$ 



SAVE ERROR COUNT 

INITIALIZE THE TRACK 

ATTEMPT THE READ 

RESTORE THE ERROR COUNT 

RETURN IF NO ERROR 

UPDATE ERROR COUNT 

TRY AGAIN IF NOT TO MANY ERRORS 

GO AND FLASH THE LIGHT ON CONTROLLER 



***************************************************************** 

* * 

* THE NEXT SECTOR LOADS CP/M FROM A 1024 BYTE SECTOR DISKETTE. * 

* * 
***************************************************************** 



DIFF 



SET 



LXI 
LXI 
CALL 
LXI 
LXI 
MVI 
MOV124 LDAX 
MOV 
I NX 



80H-$ 

SP,WSTK124+DIFF ;SET UP STACK AT END OF THIS SECTOR 



B,l*100H+5 

WLOD124+DIFF 

H,CCP+1500H 

D,CCP+500H 

C,0 

D 

M,A 

H 



;B = SECTOR COUNT, C = SECTOR # 
;LOAD SECTOR 6 INTO CCP 
; DESTINATION OF MOVE 
; SOURCE OF MOVE 

GET A BYTE OF SOURCE 

MOVE IT. 

BUMP DESTINATION 



cp/m macro ASSEM 2.0 



#012 



*** Cold Boot Loader for CP/M Ver. 2.2 *** 



I NX 


D 


DCR 


C 


JNZ 


MOV124+DIFF 


LXI 


H,CCP+100H 


SHLD 


WDMA124+DIFF 


LXI 


B,4*100H+2 


CALL 


WLOD124+DIFF 


JMP 


BIOS+3 


WLOD124 PUSH 


B 


CALL 


DJSEC 


LXI 


H,CCP-300H 


XVDMA124 EQU 


$-2 


LXI 


D,800H 


DAD 


D 


SHLD 


WDMA124+DIFF 


MOV 


B,H 


MOV 


C,L 


CALL 


DJDMA 


CALL 


WRD124+DIFF 


POP 


B 


DCR 


B 


RZ 




MVI 


A, 2 


ADD 


C 


MOV 


C,A 


CPI 


6 


JC 


WLOD124+DIFF 


SUI 


5 


MOV 


C,A 


LXI 


H,CCP-300H 


SHLD 


WDMA124+DIFF 


JMP 


WLOD124+DIFF 



;BUMP SOURCE 

;ALL DONE WITH THIS PAGE ? 

.•INITIAL DMA ADDRESS 

;B = SECTOR COUNT, C = SECTOR # 



SAVE SECTOR AND COUNT 

SET THE NEXT SECTOR TO READ 

GET DMA ADDRESS (SELF MODIFYING) 

STORAGE FOR PREVIOUS DMA ADDRESS 

OFFSET TO NEW DMA ADDRESS 

ADD IN OFFSET, HL = NEW DMA ADDRESS 

SAVE NEW DMA ADDRESS 

PUT DMA ADDRESS INTO BC 

SET THE DMA ADDRESS 

ATTEMPT A READ 

RECOVER SECTOR NUMBER AND COUNT 

B = COUNT, C = NUMBER 
UPDATE SECTOR COUNT 
ALL DONE ? 
SECTOR UPDATE 

ADD IN THE SECTOR SKEW FACTOR 
PUT NEW SECTOR BACK INTO C 
PAST THE END OF THE TRACK ? 
TAKE JUMP IF NOT PAST END OF TRACK 
PERFORM A NEGATIVE SECTOR ADJUSTMENT 
PUT NEW SECTOR IN C 
NEGATIVE DMA ADJUSTMENT 
SAVE THE NEW DMA ADDRESS 
CONTINUE READING 



***************************************************************** 
* * 



* WR124 DOES THE ACTUAL READ FROM THE CONTROLLER, THE DMA 

* ADDRESS AND SECTOR # HAVE ALREADY BEEN SET UP. 



* 

* * 

***************************************************************** 



WRD124 


LXI 


B,RETRIES*100H+ 


WR124 


PUSH 


B 




CALL 


DJTRK 




CALL 


DJREAD 




POP 


B 




RNC 






DCR 


B 




JNZ 


WR124+DIFF 




JMP 


DJERR 




DS 


80H-($ MOD 30H) 


WSTK124 


EQU 


$ 



;SAVE ERROR COUNT 

; INITIALIZE THE TRACK 

? ATTEMPT THE READ 

; RESTORE THE ERROR COUNT 

; RETURN IF NO ERROR 

; UPDATE ERROR COUNT 

;TRY AGAIN IF NOT TO MANY ERRORS 

;GO AND FLASH THE LIGHT ON CONTROLLER 



***************************** * * ***** *,* *************************** 

* * 



cp/m macro ASSEM 2.0 



#013 



*** Cold Boot Loader for CP/M Ver. 2.2 *** 



* 
* 
* 
* 
* 
* 



THE NEXT SECTOR OF CODE RESIDES AT CCP+500H. IT'S TASK IS TO 
MOVE THE FIRMWARE CODE INTO THE DISK JOCKEY RAM, THEN 
LOADING A SECTOR INTO 80H WHICH WILL LOAD THE REST OF CP/M. 
THE SECTOR LOADED AT 80H IS DEPENDENT ON THE SECTOR SIZE 
OF THE DISKETTE BEING BOOTED FROM. 



* 
* 
* 
* 
* 
* 



***************************************************************** 



DIFF SET 


CCP+500H-$ 


JMP 


DOCOLD+DIFF 


JMP 


DGWARM+DIFF 


DOCOLD LXI 


SP, STK+DIFF 


LXI 


H f DJRAM 


LXI 


D, STK+DIFF 


LXI 


B,300H 


MLOOP LDAX 


D 


MOV 


M,A 


I NX 


H 


I NX 


D 


DCX 


B 


MOV 


A,B 


ORA 


C 


JNZ 


MLOOP+DIFF 


CALL 


DJBOOT 


MVI 


A,l 


STA 


BOTBIAS+DIFF 


DOWARM LXI 


SP, STK+DIFF 


MVI 


C,l 


CALL 


DJDEN 


MVI 


C,l 


MOV 


A,C 


STA 


TRKNUM+DIFF 


CALL 


DJSEC 


LXI 


B, STK+DIFF 


CALL 


DJDMA 


CALL 


REED+DIFF 


CALL 


DJSTAT 


ANI 


0CH 


RAR 




RAR 




ADI 


4 


BOTBIAS EQU 


$-1 


MOV 


C,A 


CALL 


DJSEC 


XRA 


A 


STA 


TRKNUM+DIFF 


LXI 


B,80H 


PUSH 


B 


CALL 


DJDMA 


MVI 


C,0 


CALL 


DJDEN 



yUSED TO RELOCATE THIS SECTOR OF CODE 

;JUMP TO COLD BOOT PORTION 
?JUMP TO WARM BOOT PORTION 

;SET UP INITIAL STACK AT END OF THIS SECTOR 

; DESTINATION POINTER 

; SOURCE POINTER 

; LENGTH OF TRANSFER 

;GET ONE BYTE OF SOURCE 

;PUT AT DESTINATION 

;BUMP DESTINATION 

;BUMP SOURCE 

; UPDATE COUNT OF BYTES TO MOVE 

;TEST IF ALL DONE 

; CONTINUE MOVING NEW FIRMWARE 
; INITIALIZE THE NEW FIRMWARE 

;SET UP FOR PROPER SECTOR SELECT 



SET THE DENSITY TO DOUBLE 

SET UP TO READ SECTOR 1 ON TRACK 1 

SET TRACK 

SET SECTOR 

SET THE DMA ADDRESS 

READ THE SECTOR INTO MEMORY AT 
END OF THIS SECTOR 

DETERMINE THE SECTOR SIZE 

STRIP OFF UNWANTED BITS 

FORM THE DESIRED SECTOR FOR COLD BOOT 
BASED ON THE LENGTH OF THE 
SECTORS ON THIS DISKETTE 

; PREPARE TO READ THE COLD BOOT 
;SET UP THE SECTOR 
; TRACK 

;COLD BOOT LOADS AT 80H 

;USED AS JUMP ADDRESS TO COLD BOOT — 

t 
; DENSITY OH TRACK IS SINGLE I 



CP/M MACRO ASSEM 2.0 #914 *** Cold Boot Loader for CP/M Ver. 2.2 *** 

READ IN THE COLD BOOT 

SET THE DENSITY BACK TO DOUBLE 



CALL 


REED+DIFF 


MVI 


C,l 


JMP 


DJDEN 



GO TO THE COLD BOOT <• 



***************************************************************** 

* * 

* REED DOES THE ACTUAL READ FROM THE CONTROLLER, THE DMA * 

* ADDRESS AND SECTOR # HAVE ALREADY BEEN SET UP. * 

* * 
***************************************************************** 



REED 


LXI 


B, RETRIES*! 00H+ 


TRKNUM 


EQU 


$-2 


REED1 


PUSH 


B 




CALL 


DJTRK 




CALL 


DJREAD 




POP 


B 




RNC 






DCR 


B 




JNZ 


REED 1+D IFF 




JMP 


DJERR 




DS 


80H-($ MOD 80H) 


STK 


EQU 
ELSE 


$ 



-, STORAGE FOR TRACK NUMBER 

7 SAVE ERROR COUNT 

; INITIALIZE THE TRACK 

; ATTEMPT THE READ 

; RESTORE THE ERROR COUNT 

; RETURN IF NO ERROR 

; UPDATE ERROR COUNT 

;TRY AGAIN IF NOT TO MANY ERRORS 

;GO AND FLASH THE LIGHT ON CONTROLLER 



***************************************************************** 

* * 

* COLD BOOT LOADER FOR DISCUS M10, M20, M26. * 

* * 
***************************************************************** 









IF 


MAXFLOP NE 


E000 






ORG 
ELSE 

ORG 
ENDIF 


ORIGIN 
100H 


2100 


# 


DIFF 


SET 


100H-$ 


E000 


31FE02 


BOOTHD 


LXI 


SP,CSTKHD+DIFF 


E003 


011401 




LXI 


B,l*100H+20 


E006 


CD4601 




CALL 


CLODHD+DIFF 


E009 


2100D5 




LXI 


H,CCP+1E00H 


E00C 


1100B7 




LXI 


D,CCP 


E00F 


0E00 




MVI 


C,0 


E011 


1A 


CMOVHD 


LDAX 


D 


E012 


77 




MOV 


M,A 


E013 


23 




I NX 


H 


E014 


13 




I NX 


D 


E015 


0D 




DCR 


C 


E016 


C21101 


>„■ 


JNZ 


CMOVHD+DIFF 


E019 


2100B5 




LXI 


H,CCP-200H 


E01C 


224C01 




SHLD 


CDMAHD+DIFF 


E01F 


01050F 




LXI 


B,15*100H+5 


E022 


CD4601 




CALL 


CLODHD+DIFF 



;ORG PROGRAM AT FLOPPY ORIGIN 
; OR ELSE AT 100H 



;SET UP STACK AT END OF THIS SECTOR 
;B = SECTOR COUNT, C = SECTOR # 
;LOAD SECTOR 20 INTO CCP 
DESTINATION OF MOVE 
.•SOURCE OF MOVE 

;GET A BYTE OF SOURCE 

;MOVE IT 

;BUMP DESTINATION 

;BUMP SOURCE 

;ALL DONE WITH THIS PAGE ? 

; INITIAL DMA ADDRESS 

;B =? SECTOR COUNT, C = SECTOR # 



CP/M macro ASSEM 2.0 



#015 



*** Cold Boot Loader for CP/M Ver. 2.2 *** 







IF 


MAXFLOP NE 


E025 


0E11 


MVI 


C,17 


E027 


3EC3 


MVI 


A, (JMP) 


E029 


2100E0 


LXI 


H, ORIGIN 


E02C 


BE CLOP CMP 


M 


E02D 


C200CD 


JNZ 


BIOS 


E030 


23 


I NX 


H 


E031 


23 


I NX 


H 


E032 


23 


I NX 


H 


E033 


0D 


DCR 


C 


E034 


C22C01 


JNZ 


CLOP+DIFF 


E037 


2100E2 


LXI 


H f DJRAM-200H 


E03A 


224C01 


SHLD 


CDMAHD+DIFF 


E03D 


010302 


LXI 


B,2*100H+3 


E040 


CD4601 


CALL 
END IF 


CLODHD+DIFF 


E043 


C300CD 


JMP 


BIOS 


E046 


C5 CLODHD PUSH 


B 


E047 


79 


MOV 


A,C 


E048 


32CA01 


STA 


HDSEC+DIFF 


E04B 


2100B5 


LXI 


H,CCP-200H 


E04C 


CDMAHD EQU 


$-2 


E04E 


110002 


LXI 


D, 200H 


E051 


19 


DAD 


D 


E052 


224C01 


SHLD 


CDMAHD+DIFF 


E055 


CD5F01 


CALL 


CRDHD+DIFF 


E058 


CI 


POP 


B 


E059 


05 


DCR 


B 


E05A 


C8 


RZ 




E05B 


0C 


INR 


C 


E05C 


C34601 


JMP 


CLODHD+DIFF 



; CHECK IF DISCUS 2D IS PRESENT 

; SHOULD BE 17 JUMPS IN THE JUMP TABLE 



;NOT 17 JUMPS, DON'T READ IN THE RAMWARE 
;SKIP OVER THE JUMP INSTRUCTION 



; UPDATE JUMP COUNTER 

yCONTINUE CHECKING 

;LOAD IN THE DISK JOCKEY 2D RAMWARE 



;GO TO CP/M 

j SAVE SECTOR AND COUNT 



GET DMA ADDRESS (SELF MODIFYING) 

STORAGE FOR PREVIOUS DMA ADDRESS 

OFFSET TO NEW DMA ADDRESS 

ADD IN OFFSET, HL = NEW DMA ADDRESS 

SAVE NEW DMA ADDRESS 

ATTEMPT A READ 

RECOVER SECTOR NUMBER AND COUNT 

B = COUNT, C = NUMBER 
UPDATE SECTOR COUNT 
ALL DONE ? 

CONTINUE READING 



***************************************************************** 

* * 

* RDHD DOES THE ACTUAL READ FROM THE CONTROLLER, THE DMA * 

* ADDRESS AND SECTOR # HAVE ALREADY BEEN SET UP. * 

* * 

***************************************************************** 



E05F 


01010A 


CRDHD 


LXI 


B, RETRIES* 10 


E062 


C5 


CRHD 


PUSH 


B 


E063 


CD6F01 




CALL 


HDREAD+DIFF 


E066 


CI 




POP 


B 


E067 


D0 




RNC 




E068 


05 




DCR 


B 


E069 


C26201 




JNZ 


CRHD+DIFF 


E06C 


C36CE0 




JMP 


$ 


E06F 


CDB601 


HDREAD 


CALL 


HDPREP+DIFF 


E072 


D8 




RC 


C ; < 


E073 


3E01 




MVI 


A,RSECT 


E075 


D351 




OUT 


HDCMND 


E077 


CD9C01 




CALL 


PROCESS+DIFF 


E07A 


D8 




RC 





;SAVE ERROR COUNT 

; ATTEMPT THE READ 

? RESTORE THE ERROR COUNT 

; RETURN IF NO ERROR 

; UPDATE ERROR COUNT 

;TRY AGAIN IF NOT TO MANY ERRORS 

; DYNAMIC ERROR HALT 

; PREPARE THE SECTOR HEADER IMAGE 

TERROR EXIT • 

;READ SECTOR COMMAND 

; PROCESS THE READ 
; ERROR EXIT 



CP/M macro ASSEM 2.0 



#016 



E07B 


AF 


XRA 


A 


E07C 


D351 


OUT 


HDCMND 


E07E 


0680 


MVI 


B,SECLN/4 


E080 


2A4C01 


LHLD 


CDMAHD+DIFF 


E083 


DB53 


IN 


HDDATA 


E085 


DB53 


IN 


HDDATA 


E087 


DB53 


RTLOOP IN 


HDDATA 


E089 


77 


MOV 


M,A 


E08A 


23 


I NX 


H 


E08B 


DB53 


IN 


HDDATA 


E08D 


77 


MOV 


M,A 


E03E 


23 


I NX 


H 


E03F 


DB53 


IN 


HDDATA 


E091 


77 


MOV 


M,A 


E092 


23 


I NX 


H 


E093 


DB53 


IN 


HDDATA 


E095 


77 


MOV 


M,A 


E096 


23 


I NX 


H 


E097 


05 


DCR 


B 


E098 


C28701 


JNZ 


RTLOOP+DIFF 


E09B 


C9 


RET 




E09C 


DB50 


PROCESS IN 


HDSTAT 


E09E 


47 


MOV 


B,A 


E09F 


E602 


ANI 


OPDONE 


E0A1 


CA9C01 


JZ 


PROCESS+DIFF 


E0A4 


3E07 


MVI 


A,DSKCLK 


E0A6 


D350 


OUT 


HDCNTL 


E0A8 


DB50 


IN 


HDSTAT 


E0AA 


E608 


ANI 


TMOUT 


E0AC 


37 


STC 




E0AD 


C0 


RNZ 




E0AE 


DB51 


IN 


HDRESLT 


E0B0 


E602 


ANI 


RETRY 


E0B2 


37 


STC 




E0B3 


C0 


RNZ 




E0B4 


AF 


XRA 


A 


E0B5 


C9 


RET 




E0B6 


DB50 


HDPREP IN 


HDSTAT 


E0B8 


E620 


ANI 


DRVRDY 


E0BA 


37 


STC 




E0BB 


C0 


RNZ 




E0BC 


3E08 


MVI 


A, ISBUFF 


E0BE 


D351 


OUT 


HDCMND 


E0C0 


3EFC 


MVI 


A, NULL 


E0C2 


D352 


OUT 


HDFUNC 


E0C4 


AF 


XRA 


A 


E0C5 


D353 


OUT 


HDDATA 


E0C7 


D353 


OUT 


HDDATA 


E0C9 


3E00 


MVI 


A,0 


E0CA 


= 


HDSEC EQU 


$-1 


E0CB 


D353 


OUT 


HDDATA 


E0CD 


3E30 


MVI 


A,80H 


E0CF 


D353 


OUT 


HDDATA 


E0D1 


3E07 


MVI 


A, DSKCLK 



*** Cold Boot Loader for CP/M Ver. 2.2 *** 

; POINTER TO DATA BUFFER 



; NUMBER OF BYTES TO READ 
;GET DESTINATION OF DATA 
;TWO DUMMY DATA BYTES 



;MOVE FOUR BYTES 
;BYTE ONE 

;BYTE TWO 



;BYTE THREE 



;BYTE FOUR 



; UPDATE BYTE COUNT 



;WAIT FOR COMMAND TO FINISH 



;TURN ON DISK CLOCK 



; TIMED OUT ? 



;ANY RETRIES ? 



;NO ERROR EXIT 



;IS DRIVE READY ? 



; INITIALIZE POINTER TO HEADER BUFFER 



; SELECT DRIVE A 

;FORM HEAD BYTE 
;FORM TRACK BYTE 
;FORM SECTOR BYTE 



;FORM KEY 

;TURN ON DISK CLOCK 



CP/M MACRO ASSEM 2.0 #017 



E0D3 D350 
E0D5 3E0F 
E0D7 D350 
E0D9 C9 

E1FE 

E1FE = 
E1FE 0001 
E200 



*** Cold Boot Loader for CP/M Ver. 2.2 *** 

; WRITE ENABLE ON 



OUT 


HDCNTL 


MVI 


A,WENABL 


OUT 


HDCNTL 


RET 





ORG 

CSTKHD EQU 
DW 
DS 
ENDIF 



BOOTHD+200H-2 



BOOTHD+DIFF 
200H 



***************************************************************** 

* * 

* DISK JOCKEY 2D FIRMWARE REVISION 3.1 AND 4.0 * 

* BY GEORGE MORROW * 

* * 

* THE FOLLOWING FIRMWARE IS LOADED INTO MEMORY AND THEN MOVED * 

* INTO THE CONTROLLER RAM. * 

* * 

***************************************************************** 



E000 
E400 

E3F8 
E3F8 
E3F9 
E3F9 
E3FA 
E3FA 
E3FC 
E3FC 
E3FD 
E3FE 
E3FF 



0080 
00A0 
0004 
0010 
0001 
0018 
0004 
0002 
0020 
0010 
00C4 
00D0 
001D 
0018 
0009 
0004 
0008 





IF 


MAXFLOP NE 


ROM 


EQU 


ORIGIN 


RAM 


EQU 


ORIGIN+400H 


10 


EQU 


R0M+3F8H 


UDATA 


EQU 


10 


DCMD 


EQU 


10+1 


DSTAT 


EQU 


DCMD 


DREG 


EQU 


10+2 


USTAT 


EQU 


DREG 


CMDREG 


EQU 


10+4 


CSTAT 


EQU 


CMDREG 


TRKREG 


EQU 


10+5 


SECREG 


EQU 


10+6 


DATREG 
* 


EQU 


10+7 


* 

RCMD 


EQU 


200Q 


WCMD 


EQU 


240Q 


HEAD 


EQU 


4 


LOAD 


EQU 


20Q 


DENSTY 


EQU 


1 


ULOAD 


EQU 


30Q 


RSTBIT 


EQU 


4 


ACCESS 


EQU 


2 


READY 


EQU 


40Q 


INDEX 


EQU 


20Q 


RACMD 


EQU 


304Q 


CLRCMD 


EQU 


320Q 


SVCMD 


EQU 


35Q 


SKCMD 


EQU 


30Q 


HCMD 


EQU 


11Q 


I STAT 


EQU 


4 


OSTAT 


EQU 


10Q 



cp/m macro ASSEM 2.0 
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*** Cold Boot Loader for CP/M Ver. 2.2 *** 



0008 


= 


DSIDE 


EQU 


10Q 


0004 


= 


TZERO 


EQU 


4 


0003 


= 


MDINT 


EQU 


3 


001E 


= 


LIGHT 


EQU 


36Q 


003E 


= 


NOLITE 
* 


EQU 


76Q 


E400 


C333E4 


* 

DBOOT 


JMP 


BOOT 


E403 


C303E0 


TERMIN 


JMP 


ORIGIN+3 


E406 


C306E0 


TRMOUT 


JMP 


ORIGIN+6 


E409 


C334E5 


TKZERO 


JMP 


HOME 


E40C 


C368E5 


TRKSET 


JMP 


SEEK 


E40F 


C35BE5 


SETSEC 


JMP 


SECSET 


E412 


C31BE5 


SETDMA 


JMP 


DMA 


E415 


C3BAE5 


DREAD 


JMP 


READ 


E418 


C399E5 


DWRITE 


JMP 


WRITE 


E41B 


C310E5 


SELDRV 


JMP 


DRIVE 


E41E 


C31EE0 


TPANIC 


JMP 


ORIGIN+1EH 


E421 


C321E0 


TSTAT 


JMP 


ORIGIN+21H 


E424 


C303E5 


DMAST 


JMP 


DMSTAT 


E427 


C3E4E4 


STATUS 


JMP 


DISKST 


E42A 


C32AE0 


DSKERR 


JMP 


ROM+52Q 


E42D 


C3CAE7 


SETDEN 


JMP 


DENFIX 


E430 


C3B5E6 


SETSID 
* 


JMP 


SIDEFX 


E433 


79 


* 
BOOT 


MOV 


A,C 


E434 


32EBE6 




STA 


DISK 


E437 


32A3E4 




STA 


BDISK 


E43A 


3E7F 




MVI 


A,7FH 


E43C 


07 


DSRT 


RLC 




E43D 


0D 




DCR 


C 


E43E 


F23CE4 




JP 


DSRT 


E441 


32EAE6 




STA 


DRVSEL 


E444 


32A2E4 




STA 
IF 


BDRVSEL 
FIRST 


E447 


CDB2E4 




CALL 
ENDIF 


FIXIO 


E44A 


3AF4E3 




LDA 


IO-4 


E44D 


FEC9 




CPI 


(RET) 


E44F 


CAC9E4 




JZ 


MODELA 


E452 


1100E0 




LXI 


D, ORIGIN 


E455 


2100E4 




LXI 


H,RAM 


E458 


0E33 




MVI 
IF 


CBOOT-DBOOT 
FIRST 


E45A 


CD92E4 




CALL 


MODELM 


E45D 


3E7F 




MVI 


A,7FH 


E45F 


CDE9E7 




CALL 


SDSEL 


E462 


3ED0 




MVI 


A,CLRCMD 


E464 


32FCE3 




STA 


CMDREG 


E467 


3AA2E4 




LDA 


BDRVSEL 


E46A 


F660 




ORI 


60H 


E46C 


E67F 




AN I 


7FH 


E46E 


CDE9E7 




CALL 


SDSEL 


E471 


3E09 




MVI 


A, 9H 


E473 


CDF1E7 




CALL 


SCBITS 



; TEST FOR MODEL A OR B 



rCOPY PROM JUMP TABLE INTO RAM 



CP/M MACRO ASSEM 2.0 



#019 



*** 



Cold Boot Loader for CP/M Ver. 2.2 **'■ 



E476 


3ECA 




MVI 


A, (JZ) 




E478 


32B7E7 




STA 


INDX1 




E47B 


32C6E7 




STA 


INDX3 




E47E 


3EC2 




MVI 


A, (JNZ) 




E480 


32BCE7 




STA 


INDX2 




E483 


CDADE7 




CALL 


MEASUR 




E486 


EB 




XCHG 






E487 


229CE4 




SHLD 


BTIMER 




E48A 


119BE4 




LXI 


D, BTBLE 




E48D 


21E3E7 




LXI 


H,QRIGIN+7E3H 




E490 


0E17 




MVI 

ENDIF 


C,23 




E492 


1A 


MODELM 


LDAX 


D 




E493 


77 




MOV 


M,A 




E494 


13 




I NX 


D 




E495 


23 




I NX 


H 




E496 


0D 




DCR 


C 




E497 


C292E4 




JNZ 


MODELM 




E49A 


C9 




RET 






E49B 


00 


BTBLE 


DB 







E49C 


00180000 


BTIMER 


DW 


1800H,0 




E4A0 


0800 




DB 


8,0 




E4A2 


7E 


BDRVSEL 


DB 


7EH 




E4A3 


00080009FFBDISK 


DB 


0,8,0,9,0FFH,9,0FFH,9,0FFH,9,0FFH,9,0,l,f3 


E4B2 


2A07E0 


FIXIO 


LHLD 


ROM+7 


•FIND THE 2ND 


E4B5 


23 




I NX 


H 


BYTE OF INPUT ROUTINE 


E4B6 


110400 




LXI 


D,4 


•OFFSET 


E4B9 


7E 




MOV 


A,M 


•GET ADDR OF USTAT 


E4BA 


21EAE7 




LXI 


H, SDSEL+1 


•I/O ROUTINES 


E4BD 


77 




MOV 


M,A 


•STORE USTAT ADDR 


E4BE 


19 




DAD 


D 


•INCREMENT MEM ADDR 


E4BF 


77 




MOV 


M,A 


•STORE USTAT ADDR 


E4C0 


19 




DAD 


D 


•INCREMENT MEM ADDR 


E4C1 


EE03 




XRI 


3 ; 


•SWITCH THE ADDR 


E4C3 


77 




MOV 


M,A 


•STORE DSTAT ADDR 


E4C4 


19 




DAD 


D 


•INCREMENT MEM ADDR 


E4C5 


77 




MOV 


M,A 


STORE DATAT ADDR 


E4C6 


19 




DAD 


D ; 


INCREMENT MEM ADDR 


E4C7 


77 




MOV 


M,A 


STORE DSTAT ADDR 


E4C8 


C9 




RET 






E4C9 


= 


MODELA 


EQU 
IF 


NOT FIRST 










MVI 


C,0 ; 


COPY LAST PAGE OF RAM 








CALL 


MODELM 










ENDIF 






E4C9 


CDB2E4 




CALL 


FIXIO 




E4CC 


3E03 




MVI 


A, 3 




E4CE 


CDF1E7 




CALL 


SCBITS 




E4D1 


3ED0 


, . ... 


MVI 


A f CLRCMD j 


1791 RESET 


E4D3 


32FCE3 




STA 


CMDREG 


COMMAND 


E4D6 


3AEAE6 




LDA 


DRVSEL ; 


INITIALIZE 1791 


E4D9 


CDE9E7 




CALL 


SPSEL ; 


CONTROL BITS 


E4DC 


CDADE7 




CALL 


MEASUR 
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*** Cold Boot Loader for CP/M Ver. 2.2 *** 



E4DF 


EB 




XCHG 




E4E0 


22E5E6 




SHLD 


TIMER 


E4E3 


C9 


* 
* 

DISKST 


RET 




E4E4 


3AFEE3 




LDA 


SECREG 


E4E7 


47 




MOV 


B,A 


E4E8 


3AFDE3 




LDA 


TRKREG 


E4EB 


4F 




MOV 


C,A 


E4EC 


3AF6E6 




LDA 


DCREG 


E4EF 


2F 




CMA 




E4F0 


E601 




AN I 


1 


E4F2 


0F 




RRC 




E4F3 


57 




MOV 


D,A 


E4F4 


3AF7E6 




LDA 


SIDE 


E4F7 


07 




RLC 




E4F8 


07 




RLC 




E4F9 


07 




RLC 




E4FA 


82 




ADD 


D 


E4FB 


57 




MOV 


D,A 


E4FC 


3AFDE6 




LDA 


SECLEN 


E4FF 


07 




RLC 




E500 


07 




RLC 




E501 


82 




ADD 


D 


E502 


57 




MOV 


D,A 


E503 


3AECE6 




LDA 


CDISK 


E506 


82 




ADD 


D 


E507 


C9 


* 
* 
DMSTAT 


RET 




E508 


E5 




PUSH 


H 


E509 


2AE7E6 




LHLD 


DMAADR 


E50C 


44 




MOV 


B , H 


E50D 


4D 




MOV 


C,L 


E50E 


El 




POP 


H 


E50F 


C9 


* 
* 

DRIVE 


RET 




E510 


3EFC 




MVI 


A,374Q 


E512 


81 




ADD 


C 


E513 


3E10 




MVI 


A,20Q 


E515 


D8 




RC 




E516 


79 




MOV 


A,C 


E517 


32EBE6 




STA 


DISK 


E51A 


C9 


* 
* 

DMA 


RET 




E51B 


210820 




LXI 


,, H, 8 -ROM 


E51E 


09 




DAD 


B 


E51F 


D22DE5 




JNC 


DMASET 


E522 


21001C 




LXI 


H, -RAM 


E525 


09 




DAD 


B 



GET CURRENT 

SECTOR NO IN B 
GET CURRENT 

TRACK NO IN C 
GET CURRENT 

DENSITY IN 

THE MSB 
POSITION 
SAVE IN D 
PUT THE 

SIDE 

SELECT 

FLAG 

IN BIT 

POSITION 6 
PUT THE 

SECTOR LENGTH 

CODE P BITS 

2 & 3 

PUT THE CURRENT 

DISK NO IN BITS 
& 1 



;SAVE THE H-L PAIR 
;H-L PAIN 
;MOVE THE DMA 
;ADDR TO B-C 
; RECOVER H-L 



TEST FOR THE 

NEW DRIVE NUMBER 
LESS THAN 4 

; STORE THE NEW 
; DRIVE IN DISK 



TEST THE 

DMA ADDRESS 
FOR CONFLICT 
WITH THE I/O 
ON THE DJ/2D 



CP/M macro ASSEM 2.0 



E526 


DA2DE5 




JC 


DMASET 


E529 


37 




STC 




E52A 


3E10 




MVI 


A, 20Q 


E52C 


C9 


DMASET 


RET 




E52D 


60 




MOV 


H,B 


E52E 


69 




MOV 


L,C 


E52F 


22E7E6 




SHLD 


DMAADR 


E532 


AF 




XRA 


A 


E533 


C9 


* 
* 

HOME 


RET 




E534 


CD00E7 




CALL 


HDLOAD 


E537 


D8 




RC 




E538 


CD4AE5 




CALL 


HENTRY 


E53B 


F5 




PUSH 


PSW 


E53C 


9F 




SBB 


A 


E53D 


32F9E6 




STA 


TRACK 


E540 


32FDE3 




STA 


TRKREG 


E543 


AF 




XRA 


A 


E544 


32EDE6 




STA 


TZFLAG 


E547 


C300E6 


HENTRY 


JMP 


LEAVE+1 


E54A. 


AF 




XRA 


A 


E54B 


32E9E6 




STA 


HDFLAG 


E54E 


210000 




LXI 


H,0 


E551 


3E09 




MVI 


A,HCMD 


E553 


CD7DE7 




CALL 


CENTRY 


E556 


E604 




AN I 


TZERO 


E558 


C0 




RNZ 




E559 


37 




STC 




E55A 


C9 


* 
* 

SECSET 


RET 




E55B 


AF 




XRA 


A 


E55C 


Bl 




ORA 


C 


E55D 


37 




STC 




E55E 


C8 




RZ 




E55F 


79 




MOV 


A,C 


E560 


FE1B 




CPI 


27 


E562 


3F 




CMC 




E563 


D8 




RC 




E564 


32F8E6 




STA 


SECTOR 


E567 


C9 


* 
* 

SEEK 


RET 




E568 


79 




MOV 


A,C 


E569 


FE4D 




CPI 


77 


E56B 


3F 




CMC 




E56C 


D8 




RC 




E56D 


32F9E6 




STA 


TRACK 


E570 


C9 




RET 


,. , 



#021 *** Cold Boot Loader for CP/M Ver. 2.2 *** 

; CONTROLLER 



GET THE DMA ADDR 

TO THE H-L PAR 

STORE 

CLEAR THE ERROR 

FLAG AND RETURN 



LOAD THE HEAD 
NOT READY ERROR 
MOVE THE HEAD 
SAVE THE FLAGS 
UPDATE THE 

TRACK 

REGISTERS 
SET THE NOT 

VERIFIED FLAG 
UNLOAD THE HEAD 

UPDATE 

FLAGS 
TIME OUT CONSTANT 
DO THE HOME 

COMMAND 
TRACK ZERO BIT 



; ERROR FLAG 



TEST FOR 

SECTOR ZERO 
ERROR FLAG 

TEST FOR 

SECTOR 
TOO LARGE 

rSAVE 



TEST FOR 
TRACK 
TOO LARGE 

rSAVE 



cp/m macro ASSEM 2.0 
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Cold Boot Loader for CP/M Ver. 2.2 *** 







ISSUE 






E571 


3 2E4E6 




STA 


ECOUNT+1 


E574 


C DADE 7 




CALL 


MEASUR 


E577 


0E01 


I SLOOP 


MVI 


C,l 


E579 


79 




MOV 


A,C 


E57A 


32FEE3 




STA 


SECREG 


E57D 


3AF8E6 




LDA 


SECTOR 


E580 


B9 




CMP 


C 


E581 


C8 




RZ 




E582 


3E80 




MVI 


A, RCMD 


E584 


CD78E7 




CALL 


COMAND 


E587 


DAFDE5 




JC 


PLEAVE 


E58A 


0C 




INR 


C 


E58B 


C379E5 


COMNDP 


JMP 


I SLOOP 


E58E 


32FCE3 




STA 


CMDREG 


E591 


48 




MOV 


C,B 


E592 


11FFE3 




LXI 


D,DATREG 


E595 


2AE7E6 




LHLD 


DMAADR 


E598 


C9 


WRITE 


RET 




E599 


CD0AE6 




CALL 


PREP 


E59C 


DAFFE5 


WRENTRY 


JC 


LEAVE 


E59F 


3EA0 




MVI 


A,WCMD 


E5A1 


CDSEE5 


WRLOOP 


CALL 


COMNDP 


E5A4 


7E 




MOV 


A,M 


E5A5 


23 




I NX 


H 


E5A6 


12 




STAX 


D 


E5A7 


7E 




MOV 


A,M 


E5A8 


23 




I NX 


H 


E5A9 


12 




STAX 


D 


E5AA 


7E 




MOV 


A,M 


E5AB 


23 




INX 


H 


E5AC 


12 




STAX 


D 


E5AD 


0D 




DCR 


C 


E5x\E 


7E 




MOV 


A,M 


E5AF 


23 




INX 


H 


E530 


12 




STAX 


D 


E5B1 


C2A4E5 




JNZ 


WRLOOP 


E5B4 


219FE5 




LXI 


H, WRENTRY 


E5B7 


C3D8E5 


READ 


JMP 


CBUSY 


E5BA 


CD0AE6 




CALL 


PREP 


E5BD 


DAFFE5 


• RDENTRY 


JC 


LEAVE 


E5C0 


3E80 




MVI 


A, RCMD 


E5C2 


CD8EE5 


RDLOOP 


CALL 


COMNDP 


E5C5 


1A 




LDAX 


D 



; UPDATE COUNT 
;FIND THE INDEX 
; START W/ SECTOR 1 

INITIALIZE THE 
SECTOR REGISTER 

TEST FOR 
TARGET SECTOR 

j DO A FAKE 

; READ COMMAND 

; ABORT ON ERROR 

; INCREMENT SECTOR NO. 



;DO THE COMMAND 

; INITIALIZE BLOCK COUNT 

;DATA REGISTER 

; TRANSFER ADDRESS 



; PREPARE FOR WRITE 
; ABORT OPERATION 

; START A WRITE 

; SECTOR OPERATION 

LOAD 1ST BYTE OF DATA 

ADVANCE POINTER 

WRITE 1ST BYTE OF DATA 

LOAD 2ND BYTE OF DATA 

ADVANCE POINTER 

WRITE 2ND BYTE OF DATA 

LOAD 3RD BYTE OF DATA 

ADVANCE POINTER 

WRITE 3RD BYTE OF DATA 

REDUCE BLOCK COUNT 

LOAD 4TH BYTE OF DATA 

ADVANCE POINTER 

WRITE 4TH BYTE OF DATA 

WRITE NEXT 4 BYTES 

RETURN ENTRY ADDRESS 



; PREPARE FOR READ 
; ABORT OPERATION 

; START A READ 

; SECTOR OPERATION 

?READ 1ST BYTE 



CP/M macro ASSEM 2.0 
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*** Cold Boot Loader for CP/M Ver. 2.2 *** 



E5C6 


77 


MOV 


M,A ; 


STORE 1ST BYTE 


E5C7 


23 


I NX 


H 


ADVANCE POINTER 


E5C8 


1A 


LDAX 


D ; 


READ 2ND BYTE 


E5C9 


77 


MOV 


M,A 


STORE 2ND BYTE 


E5CA 


23 


I NX 


H ; 


ADVANCE POINTER 


E5CB 


1A 


LDAX 


D 


READ 3RD BYTE 


E5CC 


77 


MOV 


M,A ; 


STORE 3RD BYTE 


E5CD 


23 


I NX 


H ; 


ADVANCE POINTER 


E5CE 


0D 


DCR 


C ; 


REDUCE BLOCK COUNT 


E5CF 


1A 


LDAX 


D ; 


READ 4TH BYTE 


E5D0 


77 


MOV 


M,A ; 


STORE 4TH BYTE 


E5D1 


23 


I NX 


H ; 


ADVANCE POINTER 


E5D2 


C2C5E5 


JNZ 


RDLOOP ; 


READ NEXT 4 BYTES 


E5D5 


21C0E5 


LXI 


H, RDENTRY ; 


RETURN ENTRY ADDRESS 




CBUSY 






E5D8 


E5 


PUSH 


H ; 


SAVE RETURN ADDRESS 


E5D9 


21FCE3 


LXI 


H, CSTAT ; 


•WAIT FOR THE 1791 


E5DC 


CD87E7 


CALL 


BUSY ; 


TO FINISH COMMAND 


E5DF 


E65F 


ANI 


137Q ; 


ERROR BIT MASK 


E5E1 


CAFEE5 


JZ 


LEAVE -1 i 


TEST 


E5E4 


FE10 


CPI 


10H ; 


•PREMATURE INTERRUPT 


E5E6 


C2FDE5 


JNZ 


PLEAVE ; 


•OTHER ERROR TYPE 


E5E9 


3AE3E6 


LDA 


ECOUNT | 


•DECREMENT ERROR 


E5EC 


3D 


DCR 


A 


• COUNT NUMBER 1 


E5ED 


FAF4E5 


JM 


STEST 


•HARD INTERRUPT ERROR 


E5F0 


32E3E6 


STA 


ECOUNT 


•UPDATE COUNT 


E5F3 


C9 


RET 




•DO OPERATION OVER 




STEST 






E5F4 


3AE4E6 


LDA 


ECOUNT+1 


•DECREMENT ERROR 


E5F7 


3D 


DCR 


A 


? COUNT NUMBER 2 


E5F8 


F271E5 


JP 


ISSUE 


? ISSUE A COMMAND 


E5FB 


3E10 


MVI 


A,10H 


r IRRECOVERABLE ERROR 




PLEAVE 






E5FD 


37 


STC 




r ERROR FLAG 


E5FE 


El 


POP 


H 


; ADJUST THE STACK 




LEAVE 






E5FF 


F5 


PUSH 


PSW 


•SAVE THE FLAGS 


E600 


3AF6E6 


LDA 


DC REG 


jl791 CONTROL BITS 


E603 


EE10 


XRI 


LOAD 


? TOGGLE THE 


E605 


CDF1E7 


CALL 


SCBITS 


; HEAD LOAD BITS 


E608 


Fl 


POP 


PSW 


? RECOVER THE FLAGS 


E609 


C9 

* 


RET 








* 
PREP 






E60A 


CD00E7 


CALL 


HDLOAD 


;LOAD THE HEAD 


E60D 


D8 


RC 




;DISK NOT READY? 


E60E 


3AFDE3 


LDA 


TRKREG 


;GET THE OLD TRK 


E611 


3C 


INR 


A 


;TEST FOR HEAD 


E612 


CC4AE5 


CZ 


HENTRY 


; NOT CALIBRATED 


E615 


D8 


RC 




;SEEK ERROR? 


E616 


21FDE3 


LXI 


H, TRKREG 


; PRESENT TRK • 


E619 


3AF9E6 


LDA 


TRACK 


;THE NEW TRACK 


E61C 


BE 


CMP 


M 


;TEST FOR HEAD MOTION 


E61D 


23 


I NX 


H 


; ADVANCE TO THE 


E61E 


23 


I NX 


H 


; DATA REGISTER 
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#024 
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E61F 


77 


MOV 


M,A 


E620 


79 


MOV 


A,C 


E621 


CDF1E7 


CALL 


SCBITS 


E624 


CA3EE6 


JZ 


TVERFY 


E627 


AF 


XRA 


A 


E628 


32E9E6 


STA 


HDFLAG 


E62B 


CDF5E7 


CALL 


LDSTAT 


E62E 


E608 


ANI 


DSIDE 


E630 


IF 


RAR 




E631 


IF 


RAR 




E632 


IF 


RAR 




E633 


C618 


ADI 


SKCMD 


E635 


210000 


LXI 


H,0 


E638 


CD7DE7 


CALL 


CENTRY 


E63B 


DA64E6 


JC 


SERROR 




TVERFY 




E63E 


3AE9E6 


LDA 


HDFLAG 


E641 


B7 


ORA 


A 


E642 


C28FE6 


JNZ 


CHKSEC 


E645 


0602 


MVI 


B,2 




SLOOP 




E647 


3E1D 


MVI 


A, SVCMD 


E649 


CD78E7 


CALL 


COMAND 


E64C 


E699 


ANI 


231Q 


E64E 


57 


MOV 


D,A 


E64F 


CA6BE6 


JZ 


RDHDR 


E652 


3AF6E6 


LDA 


DC REG 


E655 


EE01 


XRI 


DENSTY 


E657 


32F6E6 


STA 


DC REG 


E65A 


EE02 


XRI 


ACCESS 


E65C 


CDF1E7 


CALL 


SCBITS 


E65F 


05 


DCR 


B 


E660 


C247E6 


JNZ 


SLOOP 


E663 


7A 


MOV 


A,D 




SERROR 




E664 


37 


STC 




E665 


F5 


PUSH 


PSW 


E666 


CD4AE5 


CALL 


HENTRY 


E669 


Fl 


POP 


PSW 


E66A 


C9 


RET 






RDHDR 




E66B 


060A 


MVI 


B,12Q 




RHLOOP 




E66D 


11FFE3 


LXI 


D.DATREG 


E670 


21FAE6 


LXI 


H,TRACK+1 


E673 


3EC4 


MVI 


A, RACMD 


E675 


32FCE3 


STA 


CMDREG 




RHL1 




E678 


1A 


LDAX 


D 


E679 


77 


MOV 


M,A 


E67A 


2C 


INR 


L 


E67B 


C278E.6 


JNZ 


, RHL1 


E67E 


21FCE3 


LXI 


H,CSTAT 


E681 


CD87E7 


CALL 


BUSY 


E684 


B7 


ORA 


.. A 


E685 


CA8FE6 


JZ 


CHKSEC 



SAVE THE NEW TRK 
TURN OFF DATA 

ACCESS CONTROL BIT 
TEST FOR SEEJ 
FORCE A READ 

HEADER OPERATION 
GET THE 

DOUBLE 

FLAG 

TO DO 3 MS 

STEP OPERATION 

DO A SEEK 
COMMAND 

SEEK ERROR? 

GET THE FORCE 

VERIFY TRACK FLAG 
NO SEEK & HEAD OK 
VERIFY RETRY NO 

DO A VERIFY 

COMMAND 
ERROR BIT MASK 
SAVE 

NO ERROR 
1791 CONTROL REG 
FLIP THE DENSITY BIT 
UPDATE 

CHANGE DENSITY 
DEC RETRY COUNT 

AND TRY AGAIN 
RESTORE ERROR BITS 

; ERROR FLAG 
;SAVE THE STATUS 
;SEEK TO TRACK 
; RECOVER ERRORS 



; NUMBER OF RETRYS 

DATA REGISTER 
STORAGE AREA 
DO THE READ 

HEADER COMMAND 

;GET A DATA BYTE 
; STORE IN MEMORY 
;INC MEM POINTER 
7 TEST FOR MORE DATA 
;WAIT FOR 1791 
;TO FINISH CMD 
;TEST FOR ERRORS 
;TRANSFER OK? 



CP/M macro ASSEM 2.0 
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*** Cold Boot Loader for CP/M Ver. 2.2 *** 



E688 


05 




DCR 


B ; 


DEC RETRY COUNT 


E689 


C26DE6 




JNZ 


RHLOOP ; 


TEST FOR 


E68C 


C364E6 


CHKSEC 


JMP 


SERROR ; 


HARD ERROR 


E68F 


3AFDE6 




LDA 


SECLEN ; 


GET THE SECTOR 


E692 


4F 




MOV 


C,A ; 


SIZE AND SETUP 


E693 


0600 




MVI 


B,0 j 


THE OFFSET 


E695 


21DFE6 




LXI 


H, STABLE ; 


SEC SIZE TBL 


E698 


09 




DAD 


B ; 


ADD THE OFFSET 


E699 


3AF8E6 




LDA 


SECTOR ; 


GET THE SECTOR 


E69C 


47 




MOV 


B,A ; 


SAVE IN B 


E69D 


36 




ADD 


M ; 


COMPARE W/ TABLE ENTRY 


E69E 


3E10 




MVI 


A,20Q ; 


ERROR FLAG 


E6A0 


D8 




RC 




ERROR RETURN 


E6A1 


78 




MOV 


A,B 


•SAVE THE SECTOR 


E6A2 


32FEE3 




STA 


SECREG ; 


• IN SECTOR REG 


E6A5 


3E20 




MVI 


A,40Q 


•128 BYTE SECTOR 


E6A7 


210505 




LXI 


H,505H 


•INITIALIZE 


E6AA 


22E3E6 


SZLOOP 


SHLD 


ECOUNT 


• ERROR COUNTS 


E6AD 


0D 




DCR 


C 


•REDUCE SIZE COUNT 


E6AE 


47 




MOV 


B,A 


•SECTOR SIZE TO B 


E6AF 


F8 




RM 




•RETURN ON MINUS 


E6B0 


17 




RAL 




•DOUBLE THE COUNT 


E6B1 


B7 




ORA 


A 


•CLEAR THE CARRY 


E6B2 


C3ADE6 


* 
* 

SIDEFX 


JMP 


SZLOOP 




E6B5 


79 




MOV 


A,C 


•GET THE SIDE BIT 


E6B6 


E601 




ANI 


1 


•TRIM EXCESS BITS 


E6B8 


17 




RAL 




•MOVE THE BIT 


E6B9 


17 




RAL 




TO THE SIDE 


E6BA 


17 




RAL 




? SELECT BIT 


E6BB 


17 




RAL 




? POSITION 


E6BC 


32F7E6 




STA 


SIDE 


•SAVE 


E6BF 


C9 


TOEND 
* 


RET 






E6C0 




* 


DS 


300H-TOEND+DBOOT- 


-66Q 


E6CA 




* 
* 

STACK 
* 

* 

STABLE 


DS 


25Q 




E6DF 


E5 




DB 


345Q 




E6E0 


E5 




DB 


345Q 




E6E1 


F0 




DB 


360Q 




E6E2 


F.7 


* 


DB 


3 6 70. 




E6E3 


0000 


* 
ECOUNT 


DW 





r ERROR CQUN,T CELLS 


E6E5 


0030 


TIMER 


DW 


3000H 


?HEAD LOAD TIME 



CP/M MACRO ASSEM 2.0 
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*** Cold Boot Loader for CP/M Ver. 2.2 



* * * 



E6E7 


8000 


DMAADR 


DW 


200Q j 


E6E9 


00 


HDFLAG 


DB 





E6EA 


FE 


DRVSEL 


DB 


376Q 


E6EB 


00 


DISK 


DB 


; 


E6EC 


08 


CDISK 


DB 


10Q ; 


E6ED 


00 


TZFLAG 


DB 





E6EE 


03 


D0PRAM 


DB 


3 ; 


E6EF 


FF 


D0TRK 


DB 


377Q 


E6F0 


03 


D1PRAM 


DB 


3 


E6F1 


FF 


D1TRK 


DB 


377Q ; 


E6F2 


03 


D2PRAM 


DB 


3 


E6F3 


FF 


D2TRK 


DB 


377Q ; 


E6F4 


03 


D3PRAM 


DB 


3 


E6F5 


FF 


D3TRK 


DB 


377Q ; 


E6F6 


03 


DC REG 


DB 


3 


E6F7 


00 


SIDE 


DB 


; 


E6F8 


03 


SECTOR 


DB 


3 7 


E6F9 


00 


TRACK 


DB 


; 


E6FA 


00 


TRKNO 


DB 





E6FB 


00 


SIDENO 


DB 


; 


E6FC 


00 


SECTNO 


DB 





E6FD 


00 


SECLEN 


DB 


; 


E6FE 


00 


CRCLO 


DB 


; 


E6FF 


00 


CRCHI 
* 

* 
HDLOAD 


DB 





E700 


21EBE6 




LXI 


H,DISK 


E703 


4E 




MOV 


C,M ; 


E704 


23 




I NX 


H 


E705 


5E 




MOV 


E,M ; 


E706 


71 




MOV 


M,C ; 


E707 


23 




I NX 


H 


E708 


7B 




MOV 


A,E ; 


E709 


B9 




CMP 


C ; 


E70A 


7E 




MOV 


A,M ; 


E70B 


3604 




MVI 


M,HEAD ; 


E70D 


23 




I NX 


H 


E70E 


CA36E7 




JZ 


HDCHK ; 


E711 


E5 




PUSH 


H ; 


E712 


1600 




MVI 


D,0 ; 


E714 


42 




MOV 


B,D ; 


E715 


19 




DAD 


D 


E716 


19 




DAD 


D 


E717 


3AF6E6 




LDA 


DC REG ; 


E71A 


77 




MOV 


M,A 


E71B 


23 




I NX 


H ; 


E71C 


11FDE3 




LXI 


D, TRKREG 


E71F 


1A 




LDAX 


D ; 


E720 


77 




MOV 


M,A 


E721 


El 




POP 


H 


E722 


09 




DAD 


B 


E723 


09 




DAD 


B 


E724 


7E 




MOV 


A,M 


E725 


32F6E6 




STA 


DCREG ; 


E728 


23 




I NX 


H ; 



DMA ADDRESS 
READ HEADER FLAG 
DRIVE SELECT CONSTANT 
NEW DRIVE 
CURRENT DRIVE 
TRACK ZERO INDICATOR 
DRIVE PARAMETERS 
DRIVE TRACK NO 
DRIVE 1 PARAMETERS 
DRIVE 1 TRACK NO 
DRIVE 2 PARAMETERS 
DRIVE 2 TRACK NO 
DRIVE 3 PARAMETERS 
DRIVE 3 TRACK NO 
CURRENT PARAMETERS 
NEW SIDE SELECT 
NEW SECTOR 
NEW TRACK 
DISK 

SECTOR 

HEADER 

DATA 

BUFFER 



;NEW DISK NO TO C 

CURRENT DISK TO E 
UPDATE CURRENT DISK 
ADDR OF DISK TABLE 
TEST FOR 

DISK CHANGE 
HEAD LOAD FLAG 
UPDATE HEAD LOAD 
ADDR OF DISK TABLE 
NO DISK CHANGE? 
SAVE TABLE ADDRESS 
SET UP THE 

OFFSET ADDRESS 
GET THE CURRENT 

DISK PARAMETERS 
SAVE THE 
DENSITY INFO 
CURRENT TRACK 

GET CURRENT TRK 

SAVE 

RECOVER TBL ADDR 

ADD THE 

OFFSET 
GET CONTROL BITS 
UPDATE DCREG 
GET THE OLD 



cp/m macro ASSEM 2.0 
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*** Cold Boot Loader for CP/M Ver. 2.2 *' 



E729 7E 


MOV 


A,M 


E72A 12 


STAX 


D 


E72B 3E7F 


MVI 
DSROT 


A,177Q 


E72D 07 


RLC 




E72E 0D 


DCR 


C 


E72F F22DE7 


JP 


DSROT 


E732 32EAE6 


STA 


DRVSEL 


E735 AF 


XRA 
HDCHK 


A 


E736 CDF9E7 


CALL 


LOADS 


E739 A6 


ANA 


M 


E73A 32E9E6 


STA 


HDFLAG 


E73D F5 


PUSH 


PSW 


E7 3E 3AEAE6 


LDA 


DRVSEL 


E741 4F 


MOV 


C,A 


E742 3AF7E6 


LDA 


SIDE 


E745 2F 


CMA 




E746 Al 


ANA 


C 


E747 CDE9E7 


CALL 


SDSEL 


E74A 3AF6E6 


LDA 


DC REG 


E74D 4F 


MOV 


C,A 


E74E 3AF9E6 


LDA 


TRACK 


E751 D601 


SUI 


1 


E753 9F 


SBB 


A 


E754 3D 


DCR 


A 


E755 2F 


CMA 




E756 Bl 


ORA 


C 


E757 77 


MOV 


M,A 


E758 EE02 


XRI 


ACCESS 


E75A 4F 


MOV 


C,A 


E75B Fl 


POP 


PSW 


E75C C26AE7 


JNZ 


RDYCHK 


E75F E5 


PUSH 


H 


E760 2AE5E6 


LHLD 
TLOOP 


TIMER 


E763 2B 


DCX 


H 


E764 7C 


MOV 


A,H 


E765 B5 


ORA 


L 


E766 C263E7 


JNZ 


TLOOP 


E769 El 


POP 
RDYCHK 


H 


E76A 7E 


MOV 


A,M 


E76B E620 


AN I 


READY 


E76D C8 


RZ 

UNLOAD 




E76E 3AF6E6 


LDA 


DC REG 


E771 F618 


ORI 


ULOAD 


E773 77 


MOV 


M,A 


E774 3E80 


MVI 


A,200Q 


E776 37 


STC 




E777 C9 


RET 
* 

* 

COMAND 





E778 2AE5E6 



LHLD 



TIMER 



; TRACK NUMBER 
;AND UPDATE 1791 
;DISK SELECT BITS 



ROTATE TO 

SELECT THE 

PROPER DRIVE 
SAVE 
FORCE HEAD LOAD 

TEST FOR 

HEAD LOADED 
SAVE THE HEAD 

LOADED STATUS 
GET CURRENT DRIVE 
SAVE 

GET CURRENT SIDE 
AND MERGE 

WITH DRIVE SELECT 
SELECT DRIVE & SIDE 
1791 CONTROL BITS 
SAVE 

GET THE NEW TRK 
FORCE SINGLE 

DENSITY 

IF TRACK = 
COMPLIMENT 

MERGE W/ CONTROL BITS 
SET 1791 CONTROL 
TOGGEL ACCESS BIT 
SAVE PREP ROUTINE 
HEAD LOAD STATUS 
CONDITIONALLY 

WAIT FOR HEAD 

LOAD TIME OUT 

COUNT DOWN 

40 MS FOR 

HEAD LOAD 

TIME OUT 
DISK STATUS ADDR 

;TEST FOR 

r DISK READY 



FORCE A 

HEAD 

UNLOAD 
SET DISK 

NOT READY 

ERROR FLAG 



;GET INDEX COUNT 



cp/m macro ass EM 2.0 
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*** Cold Boot Loader for CP/M Ver. 2.2 *** 



E77B 


29 




DAD 


H 


E77C 


29 


CENTRY 


DAD 


H 


E77D 


EB 




XCHG 




E77E 


21FCE3 




LXI 


H,CSTAT 


E781 


77 


NBUSY 


MOV 


M,A 


E782 


7E 




MOV 


A,M 


E783 


IF 




RAR 




E784 


D282E7 


BUSY 


JNC 


NBUSY 


E787 


7E 




MOV 


A,M 


E788 


IF 




RAR 




E789 


7E 




MOV 


A,M 


E78A 


D0 




RNC 




E78B 


IB 




DCX 


D 


E78C 


7A 




MOV 


A,D 


E78D 


B3 




ORA 


E 


E78E 


C287E7 




JNZ 


BUSY 


E791 


5E 




MOV 


E,M 


E792 


E5 




PUSH 


H 


E793 


23 




I NX 


H 


E794 


56 




MOV 


D,M 


E795 


E3 




XTHL 




E796 


D5 




PUSH 


D 


E797 


EB 




XCHG 




E798 


CDF9E7 




CALL 


LOADS 


E79B 


3AF6E6 




LDA 


DC REG 


E79E 


EE04 




XRI 


RSTBIT 


E7A0 


77 




MOV 


M,A 


E7A1 


EE04 




XRI 


RSTBIT 


E7A3 


EB 




XCHG 




E7A4 


12 




STAX 


D 


E7A5 


36D0 




MVI 


M,CLRCMD 


E7A7 


Dl 




POP 


D 


E7A8 


El 




POP 


H 


E7A9 


72 




MOV 


M,D 


E7AA 


7B 




MOV 


A,E 


E7AB 


37 




STC 




E7AC 


C9 


* 

* 

MEASUR 


RET 




E7AD 


110000 




LXI 


D,0 


E7B0 


CDF9E7 




CALL 


LOADS 


E7B3 


0E10 


INDXHI 


MVI 


C, INDEX 


E7B5 


7E 




MOV 


A,M 


E7B6 


Al 




ANA 


C 


E7B7 


C2B5E7 


INDXl 
INDXLO 


JNZ 


INDXHI 


E7BA 


7E 




MOV 


A,M 


E7BB 


Al 




ANA 


C 


E7BC 


CABAE7 


INDX2 
INDXCT 


JZ 


INDXLO 


E7BF 


13 




I NX 


D 



; AND MULTIPLY 
; BY FOUR 

;SAVE IN D-E PAIR 
; ISSUE COMMAND 
;TO THE 1791 

WAIT 

FOR THE 
BUSY FLAG 



TEST FOR 

DEVICE BUSY 
RESTORE STATUS 
RETURN IF NOT BUSY 
TEST FOR 

TWO DISK 
REVOLUTIONS 
47 MACHINE CYCLES 
SAVE ERROR CODE 
SAVE CMD ADDRESS 
TRACK REGISTER 
SAVE PRESENT TRACK 
RECOVER CMD REG. 
SAVE STATUS 
ADJUST REGISTERS 
GET CONTROL REG 
1791 CONTROL BITS 
RESET THE 1791 
CONTROLLER TO 
CLEAR FAULT 
ADJUST REGISTERS 
START CONTROLLER 
FORCE AN INTERRUPT 
RECOVER STATUS 
RECOVER TRACK REG 
RESTORE TRACK 
RESTORE ERROR CODE 
ERROR FLAG 



INITIALIZE COUNT 
STATUS PORT 
INDEX BIT FLAG 

WAIT FOR 
INDEX 
PULSE LOW 

WAIT FOR 
INDEX 
PULSE HIGH 

; ADVANCE COUNT 



cp/m macro ASSEM 2.0 
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*** Cold Boot Loader for CP/M Ver. 2.2 *** 



E7C0 E3 




XTHL 




E7C1 E3 




XTHL 




E7C2 E3 




XTHL 




E7C3 E3 




XTHL 




E7C4 7E 




MOV 


A,M 


E7C5 Al 




ANA 


C 


E7C6 C2BFE7 


INDX3 


JNZ 


INDXCT 


E7C9 C9 


* 
* 

DENF IX 


RET 




E7CA 79 




MOV 


A,C 


E7CB E601 




ANI 


1 


E7CD 2F 




CMA 




E7CE 47 




MOV 


B,A 


E7CF 21EBE6 




LXI 


H.DISK 


E7D2 5E 




MOV 


E,M 


E7D3 1600 




MVI 


D,0 


E7D5 23 




I NX 


H 


E7D6 7E 




MOV 


A,M 


E7D7 AB 




XRA 


E 


E7D8 F5 




PUSH 


PSW 


E7D9 23 




I NX 


H 


E7DA 23 




I NX 


H 


E7DB 19 




DAD 


D 


E7DC 19 




DAD 


D 


E7DD 7E 




MOV 


A,M 


E7DE F601 




ORI 


1 


E7E0 A0 




ANA 


B 


E7E1 77 




MOV 


M, A 


E7E2 Fl 




POP 


PSW 


E7E3 C0 




RNZ 




E7E4 7E 




MOV 


A,M 


E7E5 32F6E6 




STA 


DC REG 


E7E8 C9 


* 
* 

SDSEL 


RET 




E7E9 32FAE3 




STA 


DREG 


E7EC C9 


LUSTAT 


RET 




E7ED 3AFAE3 




LDA 


USTAT 


E7F0 C9 


SCBITS 


RET 




E7F1 32F9E3 




STA 


DCMD 


E7F4 C9 


LDSTAT 


RET 




E7F5 3AF9E3 




LDA 


DSTAT 


E7F8 C9 


LOADS 


RET 




E7F9 21F9E3 




LXI 


H,DSTAT 


E7FC C9 


■' '''■■ 


RET 

END IF 




E7FD 




END 





FOUR 

DUMMY 

INSTRUCTIONS 

FOR DELAY 
WAIT 

FOR NEXT 

LOW INDEX 
98 MACHINE CYCLES 



TRIM EXCESS 

BITS, 

COMPLIMENT 

B AND SAVE 
NEW DISK 
GET DISK NO 
OFFSET ADDR 
CURRENT DISK 
MOVE TO ACC 
COMPARE W/NEW 
SAVE STATUS 
DISK TABLE 

ADDRESS 
ADD THE 
OFFSET 

GET PARAMETERS 
MASK OFF DENSITY 
SET NEW DENSITY 
UPDATE 

CHECK FOR ND=CD 
NEW DISK NOT OLD 
UPDATE CDISK 

ALSO 



; DRIVE SELECT REG 



;UART STATUS REG 



;1791 CONTROL REG 



; DRIVE STATUS REG 



; DRIVE STATUS REG 



cp/m macro ASSEM 2.0 
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! ** Cold Boot Loader for CP/M Ver. 2.2 *** 



0002 


ACCESS 


E4A3 


BDISK 


E4A2 


3DRVSEL 


9000 


BIAS 


CD00 


BIOS 


E000 


BOOTHD 


E433 


BOOT 


E49B 


BTBLE 


E49C 


BTIMER 


E787 


BUSY 


E5D8 


CBUSY 


B700 


CCP 


E6EC 


CDISK 


E04C 


CDMAHD 


E77D 


CENTRY 


E68F 


CHKSEC 


E046 


CLODHD 


E02C 


CLOP 


00D0 


CLRCMD 


E3FC 


CMDREG 


E011 


CMOVHD 


E778 


COMAND 


E58E 


COMNDP 


0004 


CQMPLT 


E6FF 


CRCHI 


E6FE 


CRCLO 


E05F 


CRDHD 


E062 


CRHD 


E3FC 


CSTAT 


E1FE 


CSTKHD 


E6EE 


D0PRAM 


E6EF 


D0TRK 


E6F0 


D1PRAM 


E6F1 


D1TRK 


E6F2 


D 2 PRAM 


E6F3 


D2TRK 


E6F4 


D 3 PRAM 


E6F5 


D3TRK 


E3FF 


DATREG 


E400 


DBOOT 


E3F9 


DCMD 


E6F6 


DC REG 


E7CA 


DENFIX 


0001 


DENSTY 


E6EB 


DISK 


E4E4 


DISKST 


E400 


DJBOOT 


E400 


DJRAM 


E51B 


DMA 


E6E7 


DMAADR 


E52D 


DMASET 


E424 


DMAST 


E508 


DM STAT 


E415 


DREAD 


E3FA 


DREG 


E510 


DRIVE 


0020 


DRVRDY 


E6EA 


DRVSEL 


0008 


DSIDE 


0007 


DSKCLK 


E42A 


DSKERR 


E72D 


DSROT 


E43C 


DSRT 


E3F9 


DSTAT 


E418 


DWRITE 


E6E3 


E COUNT 


0001 


FIRST 


E4B2 


FIXIO 


0009 


HCMD 


E736 


HDCHK 


0051 


HDCMND 


0050 


HDCNTL 


0053 


HDDATA 


E6E9 


HDFLAG 


0052 


HDFUNC 


E700 


HDLOAD 


0050 


HDORG 


E0B6 


HDPREP 


E06F 


HDREAD 


0051 


HDRESLT 


0004 


HDRLEN 


E0CA 


HDSEC 


0050 


HDSTAT 


0004 


HEAD 


E54A 


HENTRY 


E534 


HOME 


0000 


IDBUFF 


0010 


INDEX 


0040 


INDX 


E7B7 


INDX1 


E7BC 


INDX2 


E7C6 


INDX3 


E7BF 


INDXCT 


E7B5 


INDXHI 


E7BA 


INDXLO 


E3FS 


10 


0008 


ISBUFF 


E579 


I SLOOP 


E571 


ISSUE 


0004 


I STAT 


E7F5 


LDSTAT 


E5FF 


LEAVE 


001E 


LIGHT 


0010 


LOAD 


E7F9 


LOADS 


E7ED 


LUSTAT 


0002 


MAXFLOP 


0001 


MAXHD 


0003 


MDINT 


00F7 


MDIR 


E7AD 


MEASUR 


E4C9 


MODELA 


E492 


MODELM 


0038 


MSIZE 


E782 


NBUSY 


003E 


NOLITE 


00FB 


NSTEP 


00FC 


NULL 


2900 


OFFSETB 


0002 


OPDONE 


E000 


ORIGIN 


0008 


OSTAT 


E5FD 


PLEAVE 


E60A 


PREP 


E09C 


PROCESS 


0004 


PSTEP 


00C4 


RACMD 


E400 


RAM 


0080 


RCMD 


E5C0 


RDENTRY 


E66B 


RDHDR 


E5C5 


RDLOOP 


E76A 


RDYCHK 


E53A 


READ 


0020 


READY 


000A 


RETRIES 


0002 


RETRY 


E678 


RHL1 


E66D 


RHLOOP 


E000 


ROM 


0001 


RSECT 


0004 


RSTBIT 


E087 


RTLOOP 


E7F1 


SCBITS 


0005 


SCENBL 


E7E9 


SDSEL 


E6FD 


SECLEN 


0200 


SECLN 


E3FE 


SECREG 


E55B 


SECSET 


E6FC 


SECTNO 


E6F8 


SECTOR 


E568 


SEEK 


E41B 


SELDRV 


E664 


S ERROR 


E42D 


SETDEN 


E412 


SETDMA 


E40F 


SETSEC 


E430 


SETSID 


E6B5 


SIDEFX 


E6F7 


SIDE 


E6FB 


SIDENO 


0018 


SKCMD 


E647 


SLOOP 


E6DF 


STABLE 


E6DF 


STACK 


E427 


STATUS 


E5F4 


STEST 


001D 


SVCMD 


E6AD 


SZLOOP 


E403 


TERMIN 


E6E5 


TIMER 


0001 


TKZ 


E409 


TKZERO 


E763 


TLOOP 


0008 


TMOUT 


E6C0 


TOEND 


E41E 


TPANIC 


E6F9 


TRACK 


E6FA 


TRKNO 


E3FD 


TRKREG 


E40C 


TRKSET 


E406 


TRMOUT 


E421 


TSTAT 


E63E 


TVERFY 


0004 


TZERO 


E6ED 


TZFLAG 


E3F8 


UDATA 


0018 


ULOAD 


E76E 


UNLOAD 


E3FA 


USTAT 


00A0 


WCMD 


000F 


WENABL 


0010 


WFAULT 


E59F 


WRENTRY 


000B 


WRESET 


E599 


WRITE 


E5A4 


WRLOOP 


0005 


WSECT 







